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lf you need more information about the UNZIP program 
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and INFOZIP at http:/www.dilwyn.uk6.net/arch/index html 


The last issue of a volume is when | traditionally take a look at what we have achieved 
over the previous 12 months. Volume 13 was not our luckiest. 


Editorially the magazine remained strong. During the year we produced 230 A4 pages, 
86.5% of which were editorial. This is a slight increase on the previous year. A noticeable 
feature of the year was a high news content, which indicates there is still a lot of activity 
in the QL community. 18 writers contributed articles to QL Today and a further 2 wrote 
letters. This is a welcome improvement on the previous year Good and loyal though our 
team of writers are, a magazine that is too heavily dependent on a handful of authors 
can soon become stale. Another welcome feature has been more emphasis on hardware 
related articles. 


Where we have not been lucky is in our reliability to our UK subscribers. Problems with 
the UK office meant that UK readers had to wait several weeks for issue 1, and although 
we were able to deliver issues 2 and 3 on time, there was no certainty we would be able 
to do so. We can only apologise once again for this and say that, now Bruce Nicholls 
has taken over administration and distribution of the UK copies, we can be confident that 
the problems are solved. 


It is traditional in this editorial for me to say something about the Quanta Magazine and 
up till now it has always been highly positive. This year it is more difficult. 


The Quanta Magazine faced a major crisis when a newly appointed editor went AWOL 
without producing a single issue. Quanta had to go over to an emergency publishing 
schedule and at one point failed to produce an issue for almost 6 months. Some 
members thought Quanta and its magazine had closed down. Others felt the quality of 
the emergency issues was below standard. Unfortunately Quanta appears to have learnt 
nothing from this and is now unrealistically boasting that its magazine is a “flourishing 
production’. 


It is not only the magazine that Quanta has attempted to improve. It has also made a 
huge effort to improve its website, but has still not mastered the art of keeping it up to 
date. Are Quanta's officers making a mistake of looking too much at the mechanics of 
its publications and too little at detailed editorial guidance? 


As it happens at QL Today we have recently been looking at the mechanics of our publi- 
cation by offering readers the chance to comment on some layout ideas we floated in 
the last issue. Our thanks to those of you who did reply, and especially for the compli- 
ments on the content of issue 3. Most comments on the layout changes were positive, 
but you had a dislike for small columns and printing on a background. 


In this issue Quanta has responded to our offer of 2,000 words to present their case. 
Their article begins with a long list of Quanta’s recent achievements, one of which is a 
welcome increase in the number of committee members. My critical comments on Quan- 
ta’s magazine and website must not detract from the real progress the organisation has 
made in recent years, progress that QL Today has encouraged and regularly reported. 


This increase happened because Quanta - aided by QL Today - realistically confronted 
their members about the lack of a future for the organisation if the committee remained 
undermanned. We wish the new and expanded committee well and hope for them that 
more realism will bring more rewards. 


25 YEARS CHUMP OR CHAMP? 


It is one of their most remembered covers. A 
chimpanzee seated behind a "black box’ with the 
question "Sinclair QL - Chump or Champ?” 
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: home to the first of a new series of Retre featires, showcasing our original reviews of 
d-breaking products from the past 30-years. In June 1984 PCW expressed mixed 


§ ahout the new Sinclair QL (see News, page 14). We're mot sure about the relevance 
himp (below), but-this remains ane of PCW's most fondly remembered cover images. 


Computer 


This is how Personal Computer World (PCW), 
one of the UK's most famous computer maga- 
zines, publicised its first review of the QL in June 
1984. It was a mixed review stating: 

‘lf everything were in place, then | would consider 
this machine very seriously as a truly personal 
computer but not as something to run a business 
on.” 

25 years on, in the April 2009 issue PCW 
reprinted that review together with several other 
items devoting no fewer than it pages to a retro 
feature on the QL, including an interview with 
designer David Karlin. 


This was Urs KOnig’s greatest success in 
publicising the QL’s quarter centenary, but, as he 
expected, interest on the Sinclair blogs has been 
very limited. At the end of March Urs reported 
that 1064 people had downloaded the Power 
Point presentation he had placed on his special 
QL is 25 website. A staggering 392 visitors had 
downloaded the demonstration version of QPC. 


The web address is: 
http://www.qlivsjaguar.homepage.bluewin.ch/ 
SinclairQL_25th_anniversary_1984_to_2009.htmi 


Published on a much smaller scale than PCW, but 
no less important as a celebration of 25 QL 
years, was a souvenir silver jubilee edition of the 
Quanta Magazine. At 80 pages it is probably 
Quanta’s largest ever magazine and came with a 
colour cover printed on silver card (or as one 
Quanta committee wag put if, "Wrapped in tinfoil’). 
The magazine was filled with reminiscences from 
committee members and others, reprints from 
early QL documents, reviews of the Asus EEEPC 
and ACER Aspire one, a comprehensive review 
of QL, PC and Spectrum emulators and a history 
of QL magazines. 


The Quanta Magazine is the only QL publication 
that can boast of being almost as old as the QL 
itself, At second place in the longevity stakes, but 
a long way behind the Quanta Magazine at a 
youthful 13 years, is QL Today. 


Jochen Merz, publisher of QL Today, can also 
make a unique claim to fame. He started Jochen 
Merz Software on 2nd May 1984. Jochen is now 


the only trader to have traded almost as long as 
the QL has existed and he promises some special 
offers to celebrate. Close second was Tony Firsh- 
man who ended active trading last year. In recog- 
nition of their services to the QL, both have been 
awarded honorary life membership of Quanta. 


ALL CHANGE AT QUANTA 


2009 brought major changes to Quanta as the 
old officers had reached the end of their 3 year 
term of office. Under the Quanta constitution reti- 
ring chairman, John Mason, stepped down from 
the committee having served on it continuously 
for six years. (In total he has served more than 15 
years on the committee.) John has also ceased 
to be co-editor of 
the Quanta Maga- 
zine as this is a com- 
mittee post. 
Although in Quanta 
men outnumber wo- 
men by almost 90 to 
1, two of the new of- 
ficers are female. 
Sarah Gilpin moves 
from Secretary to || 
Chairman and Alison 
Southern takes her 
Keith Dunbar piace as Secretary 
John Gilpin remains 
Treasurer and Dan 
Abbott and Dilwyn 
Jones remain on 
the committee. 
Keith Dunbar has 
been co-opted as a 
~ committee member 
to assist in the de- 
velopment of the 
web site. 


Quanta is rapidly 
becoming concen- 
trated in the northern half of the UK. All the new 
officers are members of the Manchester 
subgroup and the other committee members live 
in the north. Privately the officers are expressing 
a deep concern that, with the exception of the 
London subgroup, organised Quanta activity has 
all but disappeared south of Birmingham. 

Financially Quanta broke even for the first time 
for some years, but this was because only 3 
magazines were produced in 2008 instead of the 
usual six. Had a full six issues been produced 
then there would have been a loss of about 


£500. Subscription income only covered about 
four fifths of Quanta expenditure, and once again 
Quanta was partially dependent for its financial 
viability on the sale of second hand hardware on 
Quanta’s behalf by Rich Mellor. 

Quanta members should be prepared for a large 
deficit and reduction in Quanta’s capital during 
2009. This is because of the large number of 
issues of the Quanta Magazine, possibly as many 
as 9, to be produced during the year and the 
heavy costs of the quarter centenary celebra- 
tions. 

At the end of 2008 Quanta had a membership of 
180, a fall of 11 over the previous year. Although 
membership fell by 5.8%, subscription income fell 
by 16.3%. The difference is partly due to a knock 
on effect from the Quanta Magazine problems. 
Renewal forms were sent out late to those mem- 
bers whose subscriptions are due in July and 
some did not renew until late 2008 or early 2009. 
For the first time Quanta has released details of 
the number of members opting for the electronic 
version of the magazine. Response from UK 
QL-ers has been disappointing with fewer that 1 
member in 10 going electronic. Almost a third of 
overseas members have opted for the electronic 
version and these members qualify for a reduc- 
tion in their subscription. Uptake over the whole 
membership is 11.5%. 

Given the interest shown at meetings and in the 
QL media a higher uptake rate would have been 
expected. A similar phenomenon has been ob- 
served in QL software where interest in a new 
product is not always translated into sales. 


DILWYN JONES WEBSITE 


Dilwyn has moved his website to: 
http://www.dilwyn.me.uk/index.html 
This is a site that is hosted by Tony Firshman and 
the old site has a “forwarding” page pointing to 
the new one. The new page will eventually allow 
Dilwyn to have all his websites in one place. 


JUST WORDS! 

The Just Words! website has been temporarily 
reprieved. Just three days before it was due to 
be closed Lycos announced that it had found a 
new host, Mediamania. 

Some cosmetic changes have been made to the 
site to improve the balance between content and 
advertising. Just Words! has now removed the 
shows page. This was originally set up as a re- 
source for Quanta in 2004 when there was a 
dispute over a clash between a North American 
show and the Quanta AGM. The number of 
shows has now fallen too low to justify the con- 
tinuance of the page. 

Just Words! had hoped to modify the page into 
an interactive news service, a facility the QL 
community needs, but could not guarantee the 
time needed for frequent maintenance. 

Just Words! is grateful to several people in the 
QL community who offered to host the site. 
These offers could not be taken up because, 
wherever the site was hosted, time still had to be 
available for routine maintenance. 


SOFTWARE NEWS 


QEMULATOR 

Daniele Terdina has announced an update of this 
program. 

The main features of the update are 15% faster 
CPU installation; migration to a more Vista-friendly 
installer; and the inclusion, with permission, of 
both Sinclair and Minerva ROM images. There are 
also bug fixes and compatibility improvements. 
Daniele recommends the uninstallation of the old 
version before installing the new one. 

The new version of Q-emuLator is available at: 
http://www.terdina.net/ql/wingl.htmi. 


The Standard QL emulation is freeware, but 
ae unlocks additional features. 


DILWYN JONES 


Dilwyn announces six additions to his website 
plus another CD: 


GUITAR CHORDS DATABASE 

‘Ive added a Guitar Chords Database program 
from Phillip Sproston to my website. 

It's written in SuperBASIC, was originally pu- 
blished by Quantum Soft in 1985 and there are 
two versions, the original being for QDOS sys- 
tems, and a second version I've amended slightly 
to allow it to run on SBASIC systems like QPC. 
It's available to download from 
http://www.dilwyn.me.uk/edu/index.html 

(about 12K download). 

Phillip has kindly given me some other games pro- 
grams to release as freeware, which I'll add to the 
website as soon as | get a chance to test them.’ 


Q-DICT 

‘This is a new pointer driven dictionary program, 
which uses plain text dictionaries commonly avai- 
lable on the web. The program itself is pointer dri- 
ven and lets you enter a word or phrase in one lan- 
guage and it will search for a translation or mean- 
ing. Various types of search are available (exact 
match, starting with/ending with/containing a string, 
unaccented match, or wildcard search). Search 
results can be copied to stuffer buffer, Scrap, file, 
or sent to a job (e.g. transfer to an editor). 

The dictionary format is quite simple, allowing 
you to build your own dictionaries or modify 
these as you see fit - basically plain text with the 
entry and meaning separated by a colon or tab 
character, e.g. house:maison. This allows them to 
be used in an editor rather than Q-Dict if you 
prefer - they have been converted to use the QL 
character set and have the standard QL linefeed 
as end of line character. 

Q-Dict is supplied with a French-English and 
English-French dictionary as part of the package 
and a further 14 language pairs can be down- 
loaded, including German, Dutch, Spanish, Italian, 
Swedish, Norwegian, Danish, Finnish, Welsh and 
Scots and Irish Gaelic. 

Q-Dict needs Pointer Environment, Wman2 (re- 
cent SMSQ/E v3.00 or later, or QDOS with poin- 
ter environment 2.00 or later), Toolkit 2, and ex- 
panded memory. 

Q-Dict is Freeware. The dictionaries are public 
domain. 

Download the dictionary program and dictiona- 
ries from: 

http://www.dilwyn.uk6.net/diction/index.html 

(just scroll down to the Q-Dict section, where 
you'll find a sample screen dump from Q-Dict)’ 


NEW SUDOKU PROGRAM 

"Frank Dibowski has sent me a rather neat little 
pointer driven Sudoku program. 

Using this, you can design your own Sudoku 
puzzles, or load/save puzzles from/to disk, or 
even get the computer to design you a puzzle, 
which can be easy, medium, or hard. 

It can even solve the puzzle for you if, lke me, 
you find Sudoku puzzles a bit difficult. Just tell it 
that you ‘give up’ and it will show you the 
completed puzzle. 

Three sample puzzle files are supplied along with 
short instructions (in English). 

Note that you will get different results from the 
[GAME] icon depending on whether you Hit (left 
click) or Do on it, so read the short instruction file 
with it to make sure you know how to get all the 
available options.” 

Sudoku is a 24KB download from 
http://www.dilwyn.me.uk/games/index.html 


FAVICON 

‘| have added a small package to my website 
which shows you how to get a Favicon (favou- 
rites icon) displayed when your web page is dis- 
played in some modern browsers. You may have 
noticed that when some sites like those of Mar- 


cel Kilgus and myself load, they display a QL or 
QPC or such icon in the title bar In my case, 
loading my website in recent Internet Exploders 
displays a little “QL” logo which can also be dis- 
played when the site is placed in a favourities or 
bookmarks folder Why do this? | just like to an- 
nounce to the world that my site is a QL website! 
Actually, you can blame Tony Firshman for this as 
| did it at his suggestion. Nonetheless, aspiring 
QL website owners can get the icon and details 
of how to make your pages display it by 
downloading a small zip file from my website at: 
http://www.dilwyn.me.uk/htmlutil/index.html 

lf your browser supports the Favicon system, you 
can see the end result by visiting websites such 
as those of Marcel Kilgus” 


UQLX 

"Phoebus Dokos reports that he has found some 
time to fiddle with uQLx-win32 (the version of the 
uQLx emulator for Windows) and although he did 
not manage to recompile it with the newest 
cygwin, he was, however, perfectly able to boot 
it properly. TCP/IP is not working but he figures 
that after Richard Zidlicky releases the newest 
version of the sources it should. 

The latest distribution is available as a zipped or 
7-zip file from Dilwyn Jones's Emulators page: 
http://www.dilwyn.me.uk/emu/index.html 

Scroll down to Win-UQLX and you can download 
a zipped package (about 270K) or a 7-zip archive 
(about 219K). 

To be able to run the emulator, you'll need parts 
of the Cygwin distribution from 

wwwcyegwin.com , 

which provides a Linux-like environment for Win- 
dows. Phoebus says you'll need the Base and 
X-Org (or X11) parts of the package - be careful 
to follow his instructions for getting past the in- 
Staller, don't just use the ‘default’ settings, make 
sure you change Default to Install for the parts 
you need by clicking on the word Default (it 
cycles round through Install, Uninstall, Reinstall, 
etc, often with quite a delay between clicks). 
Once installed, it adds a Cygwin entry in the Win- 
dows start menu. In this, start a Linux Bash Shell, 


then when that starts type startx to get things 
going, then you should be able to start the 
emulator. 

It didn't work for me, but then you all know what 
Im like with Windows, let alone introducing 
Linux-like things into the equation, so Im sure 
everyone else will do just fine...” 


QL GAMES CD 

"This CD is a compilation of over 150 PD, free- 
ware and shareware games for the QL, thought 
to be the first time that an all-games CD for the 
QL has been launched. The games are supplied 
in a large QXLWIN file for systems able to handle 
that filing system, and as zipped files ready to 
copy to the target QL or compatible system. The 
CD costs just £5.00 from Dilwyn Jones. Further 
details of this and other QL CDs can be found at: 
http://www.dilwyn.me.uk/cdandsoft/index.html 

and can be ordered through Quo Vadis Design's 
online ordering pages at: 

http://www.qi-qvd.com/ 

(just click on the Products tab and scroll down 
for the item you require).” 

QL Today has a copy of this CD that is free of 
charge for any reader wishing to write a review. 


GEORGE GWILT 

George has updated two of his programs: 

"The latest version of UCONFIG, my program for 
producing config blocks for S*BASIC, C and 
assembler programs, contained mistakes in the 
assembler output. 

"| have updated the programs (SVSCR) for saving 
and manipulating areas of a screen so that the 
area saved will no longer contain the small 
window giving the size and position of the 
saved area if it is inside the area to be saved." 
Both programs are found at: 
http://web.ukonline.co.uk/george.qwilt/ 


CORRECTION AND UPDATE 
QSTRIPPER 


Apologies to Norman Dunbar for an error in the 
report on the source code for QStripper in the 
last issue. During one of the many transfers 
between programs and systems part of the 
report became corrupted. Norman writes: 
"Where the commands to build a subversion 
repository of my QStripper program's source 
code, everything has been put on one line. At the 
top of column two on page 9, it should read as 
follows: 


ed sre 

mkdir qstripper 

ed qstripper 

svn checkout http: //qstripper.svn. sourceforge. 
net/svnroot/qstripper ./ 


Then, below paragraph two, the instructions to 
build the program are also on a single line. They 
should read as follows: 

qmake -makefile 

make 


The latest news is that since | posted the original 
email to qlusers, | have created a download 
package to save people having to install sub- 
version. To obtain the source, proceed as follows: 
Go to 

http://qstripper.sourceforge.net/ 

in your favourite browser, or use Internet Explorer 
if you absolutely must! 


On the left of the screen, click the ‘Download 
QStripper files’ link. On the following screen, click 
on any of the links, but the ‘download’ one makes 
most sense to click! 

Finally, click on the qStripperSourceRelease.zip 
link. When prompted to open or save the file, 
choose save and save it to a location on your 
PC. 

The file is 103 KB in size so shouldn't take too 
long to download, even on dial-up links. 

The file can be saved to Windows or Linux as 
desired - the same source code works on both. 
You will need the QT4 development system to 
compile and build the source of course. 


The commands to build the source are as shown 


above: 

ed qStripperSourceRelease 
qmake ~makefile 

make 


To run it, simply type QStripper on Windows or 
/QStripper on Linux - or double click on the 


program name in Windows Explorer or whatever 
file manager you are using on Linux. 

Hopefully, soon, I'll have a binary build for both 
Windows and Linux available for download for 
those people not able or willing to install a QT4 
development system on their PC simply to build 
and run my program. 

To those very interested in a cross platform 
development system for free, may | suggest you 
check out and download QT4.5 from 
http://www.qtsoftware.com/downloads 

Select LGPL/Free Downloads and then select 
the Windows or Linux version desired (Don't click 
on the word ‘torrent’ though!) 

These are quite large downloads (269 Mb for 
Linux and 194 MB for Windows) but the effort is 
well worth it.” 


TOUCHE 

In our report of the 2008 Quanta AGM we printed 
a photo showing how Dilwyn Jones requires 
ordinary Quanta members to kneel before ad- 
dressing him. 


Dilwyn has now got his revenge. Using a scoun- 
drel who is not prepared to reveal his true 
identity but who goes under the name of 
"Mischief Maker’ he has printed a humiliating pic- 
ture of QL Today's editor in the Quanta Magazine. 
QL Today's team of sleuths soon discovered the 
identity of "Mischief Maker’. 

Alas we cannot reveal his identity, because our 
moles have discovered Mischief Maker is in pos- 
session of a compromising image of the editor 
drawn by a police artist. 


ANOTHER REPRIEVE 
Dutch user group Sin_QL_Air is hoping to conti- 
nue running meetings in Eindhoven this year. Al- 
though the original plan was to hold three 
meetings, the first of these did not prove possible 
because of ill health of the organiser, Sjef vd. 
Molegraaf. 

Sin_QL_Air still hopes to hold a show in October. 


LAST SECOND NEWS FROM 


LAST ISSUE 

The very interesting story about the develop- 
ment and release of the QL is not quite ready, 
we still need some facts! Therefore, we would 
like to ask again if you have paper cuttings 
from all the press releases shortly before and 
after the QL was launched. If so, please scan 
and (e)mail it to us! Do YOU know anything 
about it? We are especially interested in dates - 
when do you think JM and JS ROMs were 
shipped? The only replies so far came from 
Urs Konig and Simon Goodwin - thank you. 


ae 


| have spent the last week deliberating about 
whether to write anything here about the article 
in QL Today. In some ways | was very disinclined 
to do it because | did not want it to turn into one 
of those acrimonious arguments that run on 
these pages. 

| would, however like to run in a little background 
information. 

QBranch was doing fine right up to the Q40 / 
Microfast 2000 period. In retrospect both of 
these ventures were not the best conceived and 
| will not go too deeply into them but suffice it to 
say they left QBranch depleted and in debt. Quite 
apart from the various QL related problems | 
made the foolish decision of tying the QBranch 
funds to those of Microfast 2000. At the time | 
thought that would make the QL side stronger 
so | could invest the shop profits into the QL 
business. As it was the shop made a massive 
loss and was burdened with rent and rates (when 
QBranch was run from home it had neither of 
these problems.) 

Having closed the shop and taken on a job | had 
to set about rebuilding things. There was a lot of 
debt to be dealt with and, as usual, | dealt with 
the one who shouted loudest. Jochen, being a 
nice guy, was not shouting. | dealt with two 
year's unpaid rates and a whole host of other 
bills to do with closing the shop and tried to get 
QBranch back on an even keel. Fast forward a 
couple of years and Jochen and | started to try 
to get the debt to him dealt with. We started by 
paying off the oldest invoices whole. After a 
while | realised | was falling into a similar trap to 
the one | had built for myself in the shop and, 
because the QL Today Subscriptions were all 
sitting in the QBranch bank, account they got 
used for other stuff, so | then decided to open a 
separate account which required notice if | was 
to draw money from it. All the QL Today money 
would sit in there (and earn a bit of interest). 
Jochen wanted me to make regular payments to 
him. The trouble with this was that it was a bit of 
a struggle to do that. Young family, not a brilliantly 
paid job, etc. | was paying using my credit cards 
but, in the end just ran my credit cards up, added 
to my monthly payments, and all the while QL 
revenues went down. 

For the last five years QBranch has posted a 
loss. Last year it was around £3500. This year | 
expect it to be more. Almost every invoice was 
for QL Today (most of the rest were QPC2 and 


QPCPrint) and the profit from doing that was 
minimal. 

The most recent arrangement | made was that all 
QL Today payments were prepaid and all new 
invoices were settled in 30 days. In addition | 
would pay extra money to reduce the debt. 
There seemed to be a bit of confusion a while 
back when | thought the money | had sent was 
for QL Today and Jochen thought | had paid it off 
the debt and not paid for QL Today. But | have 
tried to do it this way. The main problem was 
making a regular debt repayment. It got worse 6 
months ago when my car died, | bought a new 
one which proved to have two expensive faults. 
In spite of the continuing loss from QBranch | 
have paid off around 80% of the money | owed 
JMS and the rest will get settled during this year. 
At any point in the above | could have closed 
QBranch and walked away from the debt but | did 
not do that. Although | have now closed QBranch. 
| have no intention of walking away from the 
remainder of the debt. 

When | mentioned that ‘| no longer thought about 
the QL’ | meant it in terms of the fact that | was 
no longer gathering items for the article. Usually, 
a couple of weeks before the magazine was 
being prepared for printing, | would get requests 
for the adverts and for the article. With neither of 
those to worry about and a whole load of other 
stuff going on in my life - | was not thinking about 
the QL. Hence | needed reminding that | needed 
to sort this issue out and, since | had already 
spoken with Bruce about his taking it on and | 
realised he needed to do something about 
renewals so | contacted him. 

With regard to the software side. Geoff and | had 
a very loose arrangement about it. | made up the 
disks and he gave me labels and manuals. The 
financial side was mostly me saying ‘| have no 
more manuals for x program’ and asking how 
much money he needed from me. At no point 
was | ever asked to provide a list of people who 
bought the program. It would have been easy 
enough to do - in fact | still can do this (although it 
would take a while) because every sale is 
recorded on a database. | don't think there is a 
single customer out there who has ever bought 
an item from me without getting an invoice and 
every invoice was recorded on the main 
database. It got more complex with Just Words 


when he started offering discounts for buying 
multiple programs but | never owed him any 
money and returned a whole load of manuals 
when he took it all back ‘in house’ he asked me 
to do so. At the time | thought | had settled 
everything with him and this was the first | heard 
of any problem. 

QDT was a different matter We had high hopes 
of that being a good seller but | sold only 28 
copies in over 3 years (to 2008). Each one had a 
unique licence number and | sent a spreadsheet 
with all the licence numbers, names and emails 
addresses to Jim and he invoiced me for the 
Sales. | think | may owe him for 2 copies since his 
last invoice {in 2006) and, if he emails me 
privately | can give him those details and sort out 
that payment. 

Like most businesses QBranch worked on for- 
ward sales, you are, essentially paying part of the 
previous bill from the current sales because 
running expenses take their toll. When there are 
few sales for a couple of years running expen- 
ses figure large in the equation. | should have 
closed QBranch two or three years back but | 
enjoyed running it, liked the shows and the 
people and kept thinking something would come 
up to make it get better again. When QBranch did 
Close it had over 200 copies of QL Today back 
issues which represents a sizeable amount of 
money as well as a few unsold programs which 
had been invoiced and paid for because | always 
felt | should have at least one of each item in 
stock to avoid delay in shipping to the customer. | 
also still had a swathe of QDT / Easyptr / QPC- 
Print CDs and manuals made up. Some of this | 
have now disposed of, the rest | will donate to 
Bruce but | suspect he will not be able to sell any. 
Gradually, as my diving activities became more 
prominent and then my rock band started to 
happen | got less and less time to devote to the 
QL but then the QL scene devotes less and less 
time to itself, After 25 years it is in great need of 
new programs and a bit more drive from the 
people who are still involved. It's future is in the 
hands of the users now because there is but one 
trader and nothing new to sell. A parlous state. 
There we are. This has been a lot longer than | 
intended it to be at the start and | hope you are 
all stil awake. | have done this without suggesting 
that | was misrepresented in the article and | 
hope without raising anyone's hackles or 
creating a disturbance. | just wanted my side out 
there. 

| hope you were not too bored and that the 
above will not raise any blazing rows. They don't 
do us any good at all. 


Comments from Jochen: 

This reply was posted by Roy to the QL Users 
group and | asked him to print it here as well, 
with his permission. 

My only direct comment is: the debt is mainly 
QL Today invoices (and QPC, QPCPrint sales 
etc.), as mentioned in the initial article. So, pay- 
ment always covers the eldest invoice, this is 
how it was done by me over the years, 
reported to Roy this way and general book- 
keeping practice anyway. 


| got a few responses from readers, one saying 
that he could not see what good it could 
possibly do apart from giving me a false sense 
of satisfaction. 

Well, this is a complete misinterpretation. | was 
very sorry | had to publish the initial artice. Not 
a single bit of satisfaction. Worries, massive 
worries only. How much stomach pain and 
headache all this gave me (thinking about if and 
what to publish, not just all the worries over the 
years of not getting the money in time). 

The article was meant to do as little damage as 
possible. The alternative would have been: 
possibly NO DELIVERY of issue 4 WITHOUT 
all of Roy’s readers knowing the reason. What 
kind of damage had THIS done? We would have 
to explain on the newsgroup anyway at that 
stage. Late. Not reaching all the readers. 

And could | happily take renewals without in- 
forming the readers? No, | preferred to be fair 
and explain to the readers BEFORE taking any 
money. 

I finally had to go the route which | felt would 
be the fairest - there was no perfect solution to 
all this (except from getting the promised 
payment in time - but that was not under my 
control). So, whatever | did, it would not please 
everybody and could lead to wrong impres- 
sions. Please ask yourself: what had you done 
in my situation? 

Taking renewal money and not delivering 
without telling everybody would be unaccep- 
table to me, and it would have been the definite 
end of QL Today. 


So, the situation is: if you are one of Roy's sub- 
scribers, then you should not have this maga- 
zine in your hand, as | did not get the money 
from Roy | asked for (not all of the outstanding 
money, just 500 Euros plus QL Today money ... 
beginning of June | got 100 pounds plus QL To- 
day money) plus another promise from Roy to 
set up a standing order to pay back 100 
pounds every month. | hope it will come... 


Saturday 18th and Sunday 19th of April 2009 saw 
Quanta's major event of the year take place, the 
celebration of 25 years since both the Sinclair QL 
itself and Quanta came into being. 

The workshop and AGM were held at the Allesley 
Hotel, near Coventry, with a good standard of 
attendance compared to some recent shows, 
with visitors coming from as far afield as France 
and The Netherlands. 


Entrance to the Imperial Room, where the meeting was 
held. The Quanta stand can be seen through the door to 
the left, with Leo Moll walking towards the door 


Some had stayed overnight on Friday night and 
enjoyed a good meal and chat in the Allesley 
Hotel. The Saturday was the main workshop day 
held in the Imperial Room and talks held in the 
smaller Maynard Room alongside. Talks were 
given by George Gwilt, Steve Poole and Simon 
Goodwin on subjects as diverse as the future of 
computing, PCB Cad design software and the 
uQLx (Linux) QL emulator Steve 
Poole gave a second talk on the Sun- 
day on the subject of 3D graphics 
and how he has mapped out a view 
of several kilometres around his 
house in France. This was the first 
time Steve had given such a pre- 
sentation although his writing in both 
QL Today and Quanta magazines are 
prolific. 


QL Today and Quanta author Steve Poole, 
who gave two talks over the weekend. 


George Gwilt, pictured just before the start of his talk. 


The expected Question and Answer session on 
Sunday morning did not appear in the end, proba- 
bly because everyone had already asked all their 
questions the day before. Nonetheless, notes 
were made of questions asked and these will 
appear in future Quanta Helpline columns. Most 
questions asked revolved around the use of 
emulators and the transfer of data from QL disks 
and cartridges to the emulator environment. QL 
Today has already covered this task in the 
December 2007 issue, page 48, in an article 
about QLay entitled "My Holiday Romance’ and 
hopefully Quanta’s Helpline articles will also cover 
this subject in the near future. 

A substantial QL History Exhibition had been 
prepared, with subjects as diverse as original QL 
reviews, rare documents (such as an Open Uni- 
versity course featuring the QL) and first editions 
of several QL 
magazines inclu- 
ding Quanta, QL 
User and QL 
World. Various 
people had 
brought along 
rare pieces of 
old QL hardware 
to display, such 
as Simon Good- 
wins Thor XVI 
and MCS Multi- 
ROM (a 16K 


RAM cartridge which plugs into the QL EPROM 
port allowing ROM images to be switched in and 
out), John Gilpin's Sinclair/MP disk interfaces, and 
George Gwilt's Thor 21 machine. 


The QL History Exhibition 


An in-depth QL history presentation was seen 
running on-screen all day, occasionally inter- 
spersed with another presentation from Urs Konig. 
The original Sinclair QL demo tape could also be 
seen running. 

Rich Mellor represented the QL traders at the 
workshop, with a generous stand full of both soft- 
ware and second user hardware. Dilwyn Jones 
had a new QL Games CD on show with over 150 
freeware and shareware games collected onto it. 
John Southern and Chris Grogan manned the QL 
A&E table where they sought to resuscitate and 
recycle sick QLs and other hardware brought 
along for repair. 

A significant movement in QL philosophy was 
evident at the show. Very few original black box 
QLs were to be seen. Most visitors seemed to be 
using Q emulators running on Windows or Linux 
systems. This is probably evidence that although 
there are still users running black boxes, the 
active core of QL users are largely moving to- 
wards emulation systems to benefit from having 
two platforms to use on one machine. John 
Mason, outgoing Chairman, had predicted this in 
an article in Quanta recently and | could see at 
this workshop how accurate his words were. 
Saturday night's dinner ended with the presenta- 
tion of an engraved tankard to outgoing Quanta 
Chairman John Mason. John is the longest ser- 
ving of Quanta officials, having served in one 
capacity or another for some 15 years or more. 
We hope we wil continue to see contributions 
from him to the magazine for some time to come 
- his experience of both the QL and computing in 
general is to be greatly respected. 

The outgoing Secretary also announced that 
honorary life memberships have been awarded to 
traders Tony Firshman and Jochen Merz for their 


long service to the QL community, and discretio- 
nary life membership to Gil Lamb in Thailand who 
at 94 is thought to be the oldest member 

The AGM on Sunday saw the election of the new 
committee unopposed. Outgoing Chairman John 
Mason thanked everyone and wished his succes- 
sor well after presenting a few points as to how 
he saw the last 25 years and how he thinks the 
next period will progress. Quanta now has its first 
female Chairman in Sarah Gilpin, and we welcome 
Alison Southern to the committee as the new 
Secretary. Other officers were returned unop- 
posed. 


The committee for 2009/10. From left to right: Dan Abbott 
(Webmaster), John Gilpin (Membership Secretary, Treasurer 
and Magazine Editor), Sarah Gilpin (Chairman), Alison 
Southern (Secretary) and Dilwyn Jones (Librarian, Helpline 
and News Editor) 


Webmaster Dan Abbott gave a brief mention of 
how work on the Quanta website is progressing, 
with three Content Management Systems under 
evaluation to help us maintain and progress the 
Quanta website in the future. 

Librarian Dilwyn Jones gave a brief roundup of 
the library situation, noting that he has now 
caught up with all outstanding submissions to the 
library. In an effort to encourage use of the large 
library of software available, and to celebrate the 
Silver Jubilee, committee had decided to issue a 
copy of the Library Guide to all members with 
their newsletters and the entire library is available 
on a single CD-R to members for just £1.00. He 
also announced that he hoped that in the future 
(after the Content Management System was in 
place) the entire library could be placed online for 
members to download, to make it easier in this 
world of modern technology to obtain copies of 
library disks without having to use the now 
clumsy method of sending disks back and forth in 
the post. The download library would only be 
available to members via a password system, al- 
though the library guide disk itself would be freely 


downloadable to all in the hope that it could be a 
free advert for Quanta to encourage new mem- 
bers to join by showing people how much soft- 
ware is available to members. 

It was suggested that Dilwyn Jones should con- 
tact QL groups overseas with a view to including 
information about these groups in the sub-groups 
pages of the magazine. Dan Abbott also sugges- 
ted that once the Content Management System 
has been selected and implemented, it should be 
possible for sub-groups to have their own space 
on the expanded Quanta website, to publicise 
their local activities and to give them an oppor- 
tunity to present themselves to others out there 
and possibly gain new local members. 


The Quanta website at www.quanta.org.uk 


A committee meeting was held after the AGM 
where it was decided to co-opt Keith Dunbar to 
the committee to assist Dan with the task of 
evaluating and implementing the Content 
Management Systems and generally progressing 
the website, as it is a vital facility in this day and 
age for Quanta. 


My last 3D animation program for QL Today was 
Racer_bas, which, although it contained a rally 
circuit, was situated on a completely flat surface, 
to restrict driver controls to either ‘turn left’ or 
‘turn right’. This time | thought it would be inter- 
esting for readers to manoeuvre in all three di- 
mensions, again in full perspective. So | decided 
to rewrite an old helicopter simulator As always, 
my problem as a code writer was to keep the 
program as short as possible for you to type in, 
which accordingly restricts the complexity of the 
game. So | decided to write a modern Father 


Keith Dunbar 


Quanta now faces the task of 
how to progress the organisa- 
tion as it passes its Silver 
- Jubilee, and also how to 
- tackle the shortage of volun- 
teers to serve on the com- 
| mittee. We have been for- 
“= tunate enough to have Alison 
Southern (who is a northerner 
despite her name) volunteer to serve as 
Secretary, and we will need to find a treasurer 
next year as John Gilpin steps down as an officer 
at the end of his period as defined by the 
constitution. 
During the weekend we also had the opportunity 
of meeting some ex-traders like Stuart Honeyball 
of Miracle Systems, and past officers of Quanta 
like former Chairmen Roy Brereton and Phil Bor- 
man. 
Roy Brereton also hinted that he would look at the 
possibility of holding a southern workshop in the 
Clevedon area later this year or next year (an old 
venue for very successful workshops in the past) 
and it was suggested that future AGMs could be 
held in the Coventry/West Midlands area as it was 
convenient and fairly centrally located for visitors 
from most parts of Britain. However, if workshops 
could be organised in London and/or Clevedon it 
would help to redress the recent northern bias. 
Another issue discussed this weekend was the 
collecting of ED floppy disks, which are becoming 
harder and harder to find. The last word goes to 
Alison Southern on this one, as her husband has 
apparently been making his own, by carefully ad- 
ding an extra offset hole to HD disks to fool ED 
drives that they are ED disks, which as far she 
knows still work OK. 


Christmas program, where you are confronted 
with a number of multi-story appartment blocks, 
to each floor of which you must deliver a present. 
The game starts by drawing a random number of 
buildings of random height (drawn only in wire- 
frame at first), You may fly up, down, left, right, 
forewards or backwards. (UP arrow, DOWN arrow, 
LEFT arrow, RIGHT arrow, Florewards) or Black- 
wards). These key choices simplify the coding, as 
the helicopter therefor always faces the same 
way, and only moves one block at a time in the 


selected direction. When you arrive in front of an 
appartment, to deliver the present you must sim- 
ply be positioned directly in front of its center, and 
there are cross-wires to help guide you, (the flat 
will thereafter be filled with solid colour). To 
simplify things further, the towers are pre-sorted 
in a simple way that needs no subsequent hid- 
den-face routine nor matrix searching. 

WARNING: If there are no buildings on the screen, 
then just move backwards until some come into 
view, but watch out, as if you collide with a 
building you will crash and lose. When you have 
delivered all the presents, your score will be 
given as ten times the average time you took 
per present. And that's all there is to it! At first 
you may feel confused, but don't worry as there 
is a relatively simple winning strategy, which | will 
leave you to discover. The screen frame drawing 
is pretty well instantaneous on my 2.8+Ghz PC 
with QPC2, but should be rather slower on a 
standard 128k QL. 

If you want a programming challenge, try modify- 
ing the code so as to be able to fly around the 
buildings, looking from any skew, slope, height or 
direction... | would be very much interested to 
hear how you get on! If any readers wish to have 
diagrams showing the geometry and trigonome- 
try of the program, then contact me on my public 
email terminal: stevepoole@minitel.net: | will send you 
photocopies of my programming notes. This is 


100 :: 
110 REMark HOVER_bas. by S.Poole. vijan08 


130 : 
140 CLEAR: OPEN#1,con_16 


the best way to grasp all the parameters, without 
which you will rapidly find yourself hopelessly lost 
in space-time... 

You may be surprised when examining the code, 
as all the variables seem to be working upside- 
down and back to front. This is because QL tri- 
gonometry functions do not operate in the way 
you expect them to. If you use standard Maths 
logic, you can only get output in the positive 
quarter of the scaled and centered screen. | 
worked out how to manoeuver in QL 3D space 
after much trial and error This is why my code 
contains its own ATAN_ function, where the 
‘opposite’ and ‘adjacent’ parameters are inversed 
and where the returned angular values do not 
correspond with standard trig recommendations! 
But one does what one can.. This program is a 
cut-down version of one | wrote some years ago, 
which allowed me to fly around my home parish, 
but this contained far too many DATA lines to 
detail buildings, walls, trees and fields for 
publication. After finalising Hover_bas, | started 
working on a far more ambitious 3D animation 
project which | will reveal if it works as expected. 
But this could mean much debugging as for me 
it is breaking entirely new ground! 

Happy reindeer steering! 

[Editor's comment: while | lay this out, with out- 
side temperatures of about 7 degrees, it feels 
more like winter than summer] 


120 REMark for QL Today. Beta—test by B.Coativy. 


150 WINDOW 512,256,0,0: PAPER 0: INK 7: CLS 
160 AT 1,1: INPUT 'Difficulty? (easy:1 to hard:16) »>'!i$ 


170 IF ig$='': GO TO 160: ELSE Ntwr=i$ 
180 SELect Ntwr: 
190 : 


=1 TO 16: =REMAINDER : GO TO 160 


200 REMark Do not alter scale. It controls off-screen lines: 


220 


210 scy=5: SCALE scy,-scy/1.5,-sey/2: CLS: high=12 


230 REMark P holds coordinates, T holds presents delivered: 
240 DIM p(Ntwr+1,3),p_2(Ntwr+1,3),T(Ntwr+1, high) 


250 x=1: y=2: 2=3: pl=PI*.49: p2=PI*2: L=.5 
left=192: right=200: up=208: down=216: fore=102: back=98 


260 


270 r90=RAD(90): r180=RAD(180): r270=RAD(270): r360=RAD(360) 


280 
290 : 
300 REPeat play_loop 


310 Set_perspective_referentials 

320 Get_tower_coordinates 

330 REMark Draw Aiming cross—wires: 
340 

350 get_key: IF ct=kt: won: ELSE : CLS 


360 END REPeat play_loop 


ct=Ntwr: kt=0: Get_random_towers: Fix_reference_line: D1=DATE 


OVER 0: INK 0,7,3:LINE 0,L TO 1,L, L,0 TO L,1: FILL 1: CIRCLE L,L,.35: FILL 0 


370 :: 

390 DEFine PROCedure Get_random_towers 

400 REMark Get Random towers on a 7 by 7 by 7 cubic volume: 
410 FOR f=1 TO Ntwr 


420 REMark Leave space around towers: 

430 pfx=RND(-3 TO 3): SELect pfx: =-2,0,2: GO TO 430 
440 pfy=RND(-3 TO 3): SELect pfy: =-2,0,2: GO TO 440 
450 pfz=RND(1 TO high) 

460 : 

470 REMark Don't build two towers on same spot: 

480 FOR j=1 TO Ntwr 

490 IF p(j,x)=pfx: IF pfy=p(j,y): GO TO 430 

500 END FOR ; 

510 REMark Tower origin coordinates: 

520 p(f,x)=pfx: p(f,y)=pfy: p(f,2)=pfz: et=ct+pfz 
530 END FOR f: sortem 

540 END DEFine 

550 : 

560 DEFine PROCedure sortem 

570 np=1 

580 FOR yy=3 TO -3 STEP -1 

590 FOR xx=-—3 TO 3 

600 FOR tw=1 TO Ntwr 

610 IF p(tw,x)=xx THEN 

620 IF p(tw,y)=yy THEN 

630 p_2(np,x)=xx: p_2(np,y)=yy: p_2(np,z)=p(tw,z): np=np+1 
640 END IF 

650 END IF 

660 END FOR tw 

670 END FOR xx 


680 END FOR yy 

690 END DEFine 

700 : 

710 DEFine PROCedure Fix _reference_line 

720 REMark Leave space around towers: 

730 tx=RND(-3 TO 3): SELect tx: =-2,0,2: =REMAINDER : GO TO 730 
740 ty=RND(-—3 TO 3): SELect ty: =-2,0,2: =REMAINDER : GO TO 740 
750 tz=RND(1 TO high): D1=DATE 

760 Rx=tx: Ry=ty+2 : Rz=tz: REMark target—position. 

770 END DEFine 

780 : 

790 DEFine PROCedure Get_tower_coordinates 

800 FOR twr=1 TO Ntwr 


810 REMark coordinates of front-lower-—left position of building: 
820 xQ=p_2(twr,x): Yq=p_2(twr,y): zQ=p_2(twr,z): INK twr, twr+3,3 
830 IF tx=xQ: IF ty=Yq: IF tz<=2Q: lost 

840 REMark Get each floor: 

850 FOR box_=0 TO 2Q 

860 Get_box_coordinates 

870 IF NOT Get_perspective_coordinates: GO TO 890 

880 draw_box 

890 END FOR box_ 


900 END FOR twr 

910 END DEFine 

920 : 

930 DEFine PROCedure Set_perspective_referentials 

940 REMark consider eye to target triangle 

950 Fx=Rx-tx: fy=Ry-ty: fz=Rz-tz: fh=SQRT((Fx°2)+(fy“2)) 

960 REMark eye to target polar orientations: 

970 c=ATAN_(fy,Fx): IF e>PI: c=e—p2: END IF : IF ec«-PI: c=c+p2 
980 b=ATAN_(fz,fh): IF b»PI: b=b—-p2: END IF : IF b«-—PI: b=b+p2 


990 END DEFine 

1000 : 

1010 DEFine FuNction Get_perspective_coordinates 
1020 IF VIEW_(XA,yA,2A): mA=m: nA=n: ELSE RETurn 
1030 IF VIEW_(xB,yB,zB): mB=m: nB=n: ELSE RETurn 
1040 IF VIEW_(xC,yC,2C): mC=m: nC=n: ELSE RETurn 
1050 IF VIEW_(Xd,yD,2D): mD=m: nD=n: ELSE RETurn 
1060 IF VIEW_(xE,yE,zE): mE=m: nE=n: ELSE RETurn 
1070 IF VIEW_(xF,yF,zF): mF=m: nf=n: ELSE RETurn 
1080 IF VIEW_(xG,yG,zG): mG=m: nG=n: ELSE RETurn 
1090 IF VIEW_(xH,yH,2H): mH=m: nH=n: ELSE RETurn 
1100 RETurn 1: END DEFine 

1110 : 

1120 DEFine PROCedure Get_box_coordinates 

1130 XA=xQ : : ZA=box_ 

1140 xB=XA+1: : 2B=zA 

1150 xC=XA : : 2C=2A 

1160 Xd=xB : ZD=ZA 

1170 xE=XA : 2E=ZAt+1 

1180 xF=xB : ZF=ZE 

1190 xG=xC : 2G=ZE 

1200 xH=Xd : ZH=ZE 

1210 END DEFine 

1220 : 
1230 
1240 
1250 
1260 
1270 
1280 
1290 


ooooo°0o°o°o 


DEFine PROCedure draw_box 
AmA=ABS(mA): AnA=ABS(nA) 
REMark Test if aligned with origin—corner: 
IF AmA<5E-2 THEN 
IF AnAc5E-2: IF p_2(twr,y)=ty+1: IF T(twr,box_)=0: kt=kt+1: T(twr,box_)=1 
END IF 


AT 1,1: INK 7: PRINT ct!kt,: INK twr, twr+4,3 


1300 fl=T(twr,box_) 

1310 FILL fl: LINE mA,nA TO mE,nE TO mG,nG TO mC,nC TO mA,nA: FILL 0 
1320 FILL fl: LINE mC,nC TO mG,nG TO mH,nH TO mD,nD TO mC,nC: FILL 0 
1330 FILL fl: LINE mB,nB TO mF,nf TO mH,nH TO mD,nD TO mB,nB: FILL 0 
1340 FILL fl: LINE mA,nA TO mE,nE TO mF,nf TO mB,nB TO mA,nA: FILL 0 
1350 END DEFine 

1360 : 

1370 DEFine PROCedure get_key 

1380 BEEP 1234,5: i$=INKEY$(#1,-1) 

1390 IF i$<>'': ed=CODE(i$): ELSE GO TO 1380 

1400 SELect cd 

1410 =left : tx=tx-1: IF tx<-—3: tx=-3: END IF : Rx=tx 

1420 =right: tx=tx+1: IF tx+4: tx=+4: END IF : Rx=tx 

1430 =down : tz=tz-1: IF tz<0 : tz=0 : END IF : Ra=tz 

1440 sup : tz=tz+1: IF tz»high : tz=high : END IF : Rz=tz 

1450 =fore : ty=ty+1: IF ty>+4: ty=+4: END IF : Ry=ty+2 

1460 =back : ty=ty-1: IF ty<-7: ty=-7: END IF : Ry=ty+2 

1470 =REMAINDER : GO TO 1380 

1480 END SELect 

1490 END DEFine get_key 

1500 : 

1510 DEFine FuNetion VIEW_(vx, vy, vz) 


1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 


REMark (Append underscore_ or else crash the name_table). 


REMark Consider (eye to target) & (eye to viewed—point) triangle: 


lx=vx-tx: ly=vy-ty: lz=vz—-tz: lh=((1x°*2)+(ly*2)) 7.5 


REMark Keep orientation angles in a simple positive circle: 


h=ATAN_(ly,1x)-c: IF h»PI: h=h-p2: END IF : 


e=ATAN_(1z,1h)—b: IF e>PI: e=e-p2: END IF : IF ex (-PI): 
REMark See if angles mean that the point is off-screen: 
IF h»p1 OR hc« (-p1): RETurn 0 


IF h<(-PI): 


h=h+p2 
e=e+p2 


1600 IF epi OR e(-pi): RETurn 0 

1610 REMark Perspective screen coordinates: 

1620 m=TAN(h): n=-1*TAN(e)*((m72)+1) 7.5: RETurn 1 
1630 END DEFine VIEW_ 

1640 : 

1650 DEFine FuNction ATAN_(oo, aa) 

1660 REMark Gets ATAN right in all signed quarters: 
1670 REMark Sign(opposite side) & Sign(adjacent side): 
1680 so=(000)-(00.0): sa=(aa>0)—(aa<0) 

1690 IF so=0 OR so=1: IF sa=0: RETurn 0 

1700 IF so=0 : IF sa=1 : RETurn r90 

1710 IF so=-1: IF sa=0 : RETurn ri80 

1720 IF so=0 : IF sa=—1: RETurn r270 

1730  oa=ATAN(aa/oo): REMark hypoteneuse angle in RADs. 
1740 IF so=1 : IF sa=1 : RETurn oa 

1750 IF so=-1: IF sa=1 OR sa=-—1: RETurn ri80+0a 

1760 IF so=1 : IF sa=—-1: RETurn r360+o0a 

1770 END DEFine ATAN_ 

1780 : 

1790 DEFine PROCedure won 

1800 d2=DATE-Di: score=INT(100*(d2/ct) ) 

1810 AT 3,1: INK 7: PRINT'Bravo...'!score: BEEP 12345,6 
1820 AT 5,1: PRINT'Another? (y/n):': i$=INKEY$(#1,-1) 
1830 IF ig$='': GO TO 1820 

1840 IF i$=='y': RUN: ELSE : STOP 

1850 END DEFine 


1860 : 

1870 DEFine PROCedure lost 

1880 AT 3,1: INK 7: PRINT'You Crashed...': BEEP 12345,67 
1890 AT 5,1: PRINT'Another? (y/n):': i$=INKEY$(#1,-1) 
1900 IF ig$='': GO TO 1890 

1910 IF i$=='y': RUN: ELSE : STOP 

1920 END DEFine 

1930 :: 


QUANTA has now passed its 25th birthday and is 
looking forward to the next few years. We have e Email committee meetings enable issues to 


some achievements under our belt, and need to be tackled as they arise 
look ahead to what we can do in the future. We e Started on a project to scan and make avai- 
can list quite a few recent achievements: lable electronic back issues of the magazine 


¢ Identifying the need for and appointing a 
News Editor - improving news coverage in These are the recent perfectly respectable 


both the magazine and the website achievements, yet we know we have more to do. 
e Appointing a Helpline co-ordinator _ _ QUANTA must remain at the heart of the QL com- 
¢ Appointing a magazine editor and improving munity, a user group always has to be, and we 
the content and standard of presentation have to move with the times, face up to realities 
e Electronic version of the magazine and look at what steps we take for the future. 


¢ Postage savings for electronic version of the — Just because we have ‘survived’ for 25 years, it 
magazine mean overseas members can NOW neither means we sit back and just wait for 


actually pay less per year than before QUANTA and the QL community as a whole to 
Online subscription payments expire, nor that we should seek to set ourselves 
Improving the website impossible targets. 


Magazine listings available from the website —_{t is probably inevitable that at some point in the 
Managed to get new committee members (hopefully distant) future, QUANTA as an organisa- 


tion will either be wound up or less likely, merged 
with another organisation. The merger of QL 
Today and QUANTA magazine was raised 
recently, and QUANTA responded with an opinion 
poll. At the time of writing, only the opinions of 
those at QL Is 25 were known and that opinion 
was overwhelmingly against such a merger. 


Criticism 

Of course, it is easy to criticise a committee or 
an organisation at any time, but if you have ideas 
for progress and change, you should make those 
known as well as the criticisms. QL Today has 
been critical of QUANTA, but has also been con- 
structive when dealing with many issues. We 
may not always agree with everything that is 
said, but it has at least resulted in a consensus 
that we need to actively move forward and never 
be content with the status quo. We understand 
that some things that got said were mutually 
disagreeable but equally feel that this is now a 
new year for QUANTA, under a new Chairman 
and that we should look forward rather than dwell 
on things which are likely to prove potentially 
destructive to both organisations, especially as 
even some QL Today readers complained about 
the ongoing ‘personal dispute” as "needless and 
tedious’ We would rather celebrate achievements 
and look forward to what we can do in the future. 
If you have views on what QUANTA should be 
doing and isn't (or doesn't seem to be) doing, 
write and let us know. Even better, let us know 
what you think should be done about it. Some 
very good ideas often arise from constructive 
criticism like this. If you have strong feelings, you 
can stand for election to the committee and with 
at least one more officer due to stand down next 
April (Chairman John Mason stood down this 
time) there is a clear opportunity for someone to 
get him/herself nominated to stand for election to 
a committee and possibly serve as an officer in 
the future. 


Opinions Expressed 

There are some issues raised by writers such as 
Duncan Neithercutt about the future of QUANTA 
that we will agree with completely, while there are 
others we can comment on constructively even if 
we don't agree with them. 

As an example, he states that "the email distribu- 
ted .pdf magazine is a doppelganger for the pa- 
per magazine! None of the opportunities of 
electronic publishing have been used, not even 
colour!” 

QUANTA's Editor has spent a lot of time on this. 
He has come up with what he believes to be the 


best compromise between quality and file size. 
Yes, we can try to make sure that web links can 
be clicked on within the electronic magazine, for 
example. But as to whether the paper or elec- 
tronic versions are the future, at this stage only a 
small minority take the electronic version and 
when asked at QL Is 25 for example, many said 
they simply preferred the paper version to carry 
around and read. Cost might be a factor for 
overseas members because they can now pay 
the base subscription price for the electronic 
newsletter and save themselves several pounds 
in postage - the first time in recent years that 
overseas members can join at the same price as 
UK members. And of course the paper version is 
the only option for those without internet access 
or the facility to read PDF files. 


Library 

Duncan's comments about the QUANTA Library 
are valid. 

As an example of what we want to do in the 
future, our Librarian wishes to place QUANTA 
Library online for download to members via a 
password system. This will need a proper system 
of controlling access to the Library, which in turn 
will involve the Membership Secretary setting up 
passwords, changing them when needed and of 
course removing access from members who de- 
cide not to subscribe the following year The old 
system of sending disks and return postage and 
SO on to librarians is just too clumsy in this day 
and age for those with internet access when, as 
Duncan mentioned, you can get all sorts of soft- 
ware freely and quickly on many QL websites. 
Not all members have internet access, though, 
and not everyone will know how to download a 
zipped disk and transfer it to their QL system or 
emulator and unpack it to be able to run it, so we 
will need to make sure we tackle that particular 
issue too. But, the infrastructure of the website 
needs to be in place before we can embark on 
anything other than gather ideas. 

It is also hoped that local sub-groups can have 
their own sections on the website. Here they can 
publicise their existence in order to recruit new 
local members, and make their local activities 
known. Which leads to another subject - the 
activities of the overseas QL user groups. It was 
decided at QL Is 25 that a committee member 
would seek to get in touch with the overseas 
groups to list those which still exists and try to 
get them to send us details of their activities, 
who to contact to join and so on. 

The QUANTA website is a vital tool for us in this 
day and age and we want to try to get it right 
rather than just put "a website’ in place overnight 


which would risk becoming quickly out of date 
and becoming little more than the name of the 
organisation and a contact point list. 


Multi-Platform? 

Now to look at the subject of QUANTA conside- 
ring becoming a multi-platform group. This has 
been discussed many times in the past and of 
course we have always resolved to remain a QL 
(and compatibles, including emulators) group. We 
are against it becoming multi-platform, but are 
happy to allow some Windows, Linux or Mac OS 
discussion where this is relevant to us as a QL 
group, for example, discussing a particular Linux, 
Windows, or Mac issue where it causes 
problems in getting a QL emulator to work, or 
porting a particular Linux or Unix application to 
QDOS or SMSQ, or where relevant in furthering 
QDOS and SMSQ. 


News 

We saw that news coverage was a weakness in 
the magazine and appointed a committee 
member to be responsible for gathering news 
items for the magazine and for news to be 
available on the website too. The result - even in 
our Silver Jubilee year we have seen several 
pages of news in most recent magazines. A 
positive and successful step, and of course an 
essential function of keeping members informed 
of news and developments in a period where 
QUANTA and QL Today are the main (and 
sometimes only) sources of information for many 
QLers, apart from the email mailing list. 

We also ensured that a committee member was 
responsible for the Helpline and this has resulted 
in many helpful questions being answered via the 
magazine. We hope that in time we could add the 
compilation of Helpline articles as a reference 
source of FAQs (Frequently Asked Questions) on 
the website which members could refer to first, 
then perhaps add a ‘message form’ to the 
Helpline pages for members to contact us. Again, 
this will be looked at in more depth once our 
Webmaster has got the CMS fully in place. 


Business Proposals 

We have to be at the heart of the QL community 
(that’s what any user group should be) yet we 
dare not be too recklessly adventurous. We have 
to do the best we can with members’ money, yet 
we have looked at business proposals such as 
Rich Mellor's loan for new keyboard membranes, 
and D&D Systems’ loan for Qx0 production. Both 
plans were considered on the merits of the 
business plan submitted and the loans duly 
repaid as planned, with the results that spare 


parts continued to be available as_ the 
opportunity arose, and we were able to assist 
with the Q40/Q60 systems. 

What we are getting at is this: In his editorial, QL 
Today's editor asks if "we prefer the safety of 
going on as before?” or if it should be ‘a radical 
reshaping of our community?” The answer lies 
between these extremes, of course. We cannot 
afford the luxury of doing nothing and going 
Stale, yet we dare not take risks so great that a 
failure would wipe us out overnight or leave 
members so disillusioned that they quit in droves. 


The Web 

QUANTA recognises the vital importance of the 
World Wide Web and electronic communication. 
We have taken active steps to improve our 
website and recognise that further work is 
needed, which is why we have also been 
proactive here and co-opted another committee 
member with experience in this area (Keith 
Dunbar) who can assist our webmaster to move 
the website on a little quicker to what we want it 
to be (pivotal to QUANTA - a proper web presence 
is essential rather than just desirable) rather than 
resting on our laurels with what we already had. 


Committee And The Future 

Our constitution states that we need to have 
three officers and up to six other committee 
members. The constitution states that members 
can't serve for more than six years and officers 
not normally for more than three years. So we 
will need at least one new officer next April. 
These rules were introduced in an effort to bring 
new blood to the committee, but have not been 
as successful as originally hoped and it has 
looked from time to time as though QUANTA 
may struggle to survive when faced with a lack 
of volunteers (although this year we have two 
new committee members). Even if the constitution 
allowed the same people to stay in place forever, 
this would scarcely be good in the long term - 
new blood is vital from time to time. 

So our vision is to make sure we are well placed 
to take on the QL scene as it changes with time. 
We have taken proactive steps with the 
magazine, we are on the lookout for potential 
future committee members, we are investing time 
and effort into putting a CMS in place for 
effective future use of the website, we have got 
online subscription payments up and running, we 
are planning ahead for what we can do once 
these steps are fully in place. 

And of course we will have to learn to blow our 
own trumpet rather better than we have done in 
the past! I 
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FEATURED 


* Quo Vadis Design Website Launched 
BI/G2/2009 


| Software of the QL now exist which can run on a 
|PC@Mac with Windows/Linux or Mac Operating systems. 


| (Copyright © 2009 Quo Vadis Design. All Rights Reserved. Home | Products | Support | Company | Contact] Privacy 


Special Offers available from 
Jochen Merz Software for its 
25 years in QL Trading 


Check the QL News Blog on 
our website for the special 
offers 


Subscriptions taken online 


The QL magazine )| 
for all QDOS, QL, | 
sers! ) 
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lan Burkinshaw's letter in the last issue of QL 
Today, which was also published in the Quanta 
Magazine, has caused quite a stir lan suggested 
the time has come for QL Today and Quanta to 
merge. 


Let us be clear straight away that neither Quanta 
nor QL Today supports this proposal, but at QL 
Today we feel the issue should be discussed. lan 
is not a lone voice, because we have heard 
others making a similar suggestion. In the last 
year both QL Today and the Quanta Magazine 
have had severe difficulties, and there is a strong 
possibility that the Quanta Magazine will again 
face a major crisis next year Even if both publica- 
tions were eager for a merger, finding a mecha- 
nism for doing so would be very difficult if not 
impossible. 


lan's letter appears to have shocked Quanta’s 
high command and at their recent quarter cente- 
nary show they produced a document and 
survey that, frankly we found bizarre and 
misleading. 

Quanta stated "this is surely about the future of 
QL Today not QUANTA Magazine’, in spite of the 
fact that lan and others have clearly stated that 
Quanta’s magazine problems over many years 
are one reason for making this suggestion. 


In the document Quanta describes their own 
magazine as a ‘flourishing first class production’. 
At QL Today we have frequently praised the 
efforts Quanta has made to improve the Quanta 
Magazine, which has been transformed editorially 
in recent years, but Quanta is losing touch with 
reality by claiming it is a “flourishing production’. 
The facts are that for five years Quanta has 
been unable to find a permanent editor for the 
magazine, and a year ago a newly appointed 
editor went AWOL without producing a single 
issue. Quanta had to go over to an emergency 
publishing schedule, which meant there was no 
magazine published for almost six months. Some 
members thought the magazine and Quanta had 
closed down. 


Other members were highly critical of the emer- 


gency issues, suggesting the content had fallen 
below acting editor John Gilpin's usual high stan- 
dards. One member put it forcibly “the signal to 
noise ratio frequently drops to below detectable 
values’. Others felt news items had been used to 
pad out the magazine because of a lack of other 


content. There was some truth in these allega- 
tions, but | felt they were a little harsh given the 
pressures that John Gilpin was working under. 
Now that he is back on his normal schedule he 
has produced two issues that have won praise 
as being among the best ever 


Quanta tells us that John Gilpin has to step down 
as treasurer next year because he will have 
served 6 years on the committee. If this is true 
he also has to stop all work for the Quanta 
Magazine, just as John Mason has done this year, 
because the magazine editor is a committee 
post. Realistically if Quanta has failed to find a 
permanent magazine editor since 2004, what is 
the chance of it doing so within the next six to 
10 months? When John Gilpin steps down we can 
anticipate a major Quanta Magazine crisis. 


| wonder whether Quanta’s present officers have 
read and understood the Quanta constitution, be- 
cause it is unequivocal on how the six year rule 
applies to officers as distinct from ordinary com- 
mittee members. John Gilpin is entitled to remain 
in office until 2012 and even then a scenario 
could arise where he could serve for a further 
three years. (If the Quanta officers want to check 
this they should avoid getting confused by the 
pleonastic oxymoron in clause 5.3 and just simply 
remember that “at” means ‘at’. Not “before”, not 
“after” nor even “on or after’) 


Perhaps the most disturbing part of Quanta's 
document and survey are some dodgy financial 
Statistics. Quanta accuses Jochen Merz of wan- 
ting it both ways: 

"He alternates, in one breath, between rejecting 
lan's proposition and putting forward an option 
which would be very financially beneficial to QL 
Today’ 


It then claims this financial benefit would be 
between £4,000 and £5,000 per year. 


Jochen has made his position abundantly clear: 


"QL Today and Quanta cannot become one 
entity... simply because |, Jochen, prefer to stay 
independent.” 


However he suggests that if people wanted to 
press the matter he would be open to sug- 
gestions and raised the possibility of using the 
same construction that had previously been used 


with the German QL club of providing a supple- 
ment for club members. However this would be 
modified to allow Quanta several pages in the 
magazine which they could edit themselves. In 
return he would expect something like half the 
Quanta income from subscriptions. 


We cannot understand how Quanta claims this 
would give QL Today a financial benefit of £4,000 
to £5,000, a calculation that Quanta makes no 
attempt to justify However we assume Quanta’s 
calculation is based on not a single one of its 
members currently subscribing to QL Today. 


Even more bizarrely Quanta claims a combined 
Quanta and QL Today subscription would be 
£43.50 UK, £49.54 Europe and £62.72 rest of the 
world. In practice at the full prices and exchange 
rates being offered in the last issue of QL Today 
these figures are approximately £4150, £43.35 
and £53.45 respectively, 


Now let's look at the financial implications for 
Quanta. Based on Quanta’s financial reports for 
2006 and 2007 the Quanta Magazine costs 
about £1,380 to produce - £956 printing costs 
and £424 postage. (We cannot use the 2008 
figures as only 3 magazines were published 
during the year) 


£1,380 is 46.2% of 2006 subscription income, 52% 
of 2007 subscription income and 62.1% of 2008 
subscription income. The print run of the Quanta 
Magazine is now so small that there is no longer 
a direct relationship between size of membership 
and the cost of the magazine. By falling mem- 
bership Quanta pays less on postage and slightly 
less for paper but still has to pay the same 
overheads to the printer We can expect the 
magazine to continue to take up a higher and 
higher proportion of Quanta’s subscription in- 
come, and, sooner or later Quanta will have to 
face up to the implications of this. 


Quanta’s jiggery-pokery over the cost of a mer- 
ger between QL Today and the Quanta Magazine 
detracts from what is its most powerful argument 
against a merger Any merger would be so finan- 
cially disadvantageous to the majority of its 
members that many would leave Quanta. 


The UK still has a large number of people who 
make only a simple use of the QL, the so called 
black box users, and they form a large proportion 
of Quanta membership. These QL-users are just 
not in QL Today's target readership group and, 
were we to try to include them, then many of our 
present readers would accuse us of dumbing 
down the magazine. 


QL Today and Quanta are two distinct entities 
with different aims and different membership or 
readership. While it may seem attractive to merge 
them in order to safeguard the future of the QL 
community, in practice it would be almost 
impossible to do. 


The QL community, particularly in the UK, is much 
more diverse than many QL-ers realise. A com- 
mon mistake is to assume that most UK QL-ers 
are Quanta members, QL Today readers and a 
participants in the QL-users email group. This is 
far from being the case and the number 
subscribing to all three is relatively small. 


Those who criticise the Quanta Magazine's news 
coverage as being just a rehash of what has 
already appeared on the QL-user’s group - and 
the same criticism could be made of QL Today - 
should realise that there are readers of both 
magazines that value this because they do not 
themselves subscribe to the user group. 


QL Today and the Quanta Magazine may be rival 
publications, but that is a good thing. Competition 
helps to keep standards high and at QL Today 
we have often said a strong Quanta Magazine 
would be good for us. 


In a recent email to me John Gilpin, who is now 
the sole editor of the Quanta Magazine wrote: 


"! look forward to an informative and lively 
exchange of views between our respective 
publications. | have seen it said that QUANTA 
magazine refused to give you the right of reply 
in recent issues. This should now no longer be 
the case.” 


At QL Today we have the fullest confidence in 
John Gilpin as editor and Dilwyn Jones as news 
editor of the Quanta Magazine, and ideally would 
like to see both of them continue in post for a 
few more years. Obviously before long Quanta 
will have to look at the finances of the magazine, 
but first priority should be a check of clauses 5.2, 
5.3 and 5.4 of the Quanta constitution. 


[Jochens comment: | have not printed the 
survey here, as | feel we do not want to cover 
half of this issue with Quanta related matters. | 
am aware that these matters are also positive 
and promising and the 2000 words were 
promised, and all of this affects more or less all 
of us QLers. If you wish as you have not seen 
it and find it missing to get the full 
understanding, | am happy to print it in the next 
issue.] 


It is easy enough to rename a file using the TK2 command RENAME. But various curious things come 
to light if you try to rename a file inside an assembler program. 


The underlying routine in RENAME is the Tap #3 routine IOF_RNAM with DO = $4D. 


The manual remarks: "This trap does not work on every device, especially not on MDV on an 
unexpanded QL”. This trap is called by setting the timeout in D3W. the channel ID of the file whose 
name is to be altered in AO and the pointer to the new name in Al. 


The implementation of this trap for a particular device forms part of that device's driver Thus it turns 
out that for a RAM directory the form of open inherent in the channel ID can be OPEN, OPEN_NEW or 
OPEN_OVER. These are the forms of open with D3 being 0, 2 and 3 respectively for the Trap #2 
routine IO_OPEN. 


lf the directory is either FLP or WIN only OPEN is allowed. If the file was opened by OPEN_NEW or 
OPEN_OVER the error "write protected’ is signalled. 


For DOS directories, which are used in QPC2, renaming is not allowed. 


| was faced recently with the problem that | had to rename a file which had been opened by 
OPEN_OVER (D3 = 3). My program had to work whether the device was RAM, FLP WIN or DOS. My 
solution was this. 


1. Find the position of the original file. By that | mean find where the next byte would be read from or 
written to in the file. 

Open the new file. 

Move the position of the first file to the start. 

Copy a block from the original file to a buffer. 

Write the bytes fetched to the new file. 

Test the old file for EOF 

If not EOF go to 4. 

Rewind the new file to the old file's original position. 

. Delete the original file. 


WOONOONLwWH 


The result is as if | had used IOF_RNAM with the exception that AO now contains the new channel ID. 
The code to do this Is in the subroutine RNAM given below. 

This uses two subroutines OPENFILE and DELETEFILE. These form part of the assembler GWASS 
and were added to it in 1996 by Dave Walker. These allow for the possible addition of DATADS to the 
filename. 


3 Rename a file 

3 On entry AO = file ID 

3 Al —-> new name 

H A2 —> a buffer 

; A3 -—» old file's name 
: D2.W = buffer size 

3 
3 


On exit AO = new ID 
NAM.REG REG D1-6/A1-6 
RNAM: 
3 Store the registers to be used. 


3; Find and store DATAD$. It might be needed. 
3 Keep the input information safe. 


MOVEM.L NAM_REG,—(A7) 
MOVEQ #1,D0 Set only .. 
BSR SET_DP . « DATADS 


MOVEA.L A1,A4 
MOVEA.L  A2,A5 
MOVEA.L  A0,A6 
MOVE.W D2, D4 


3; Find the file's position 
MOVEQ #-1,D3 


MOVEQ #0,D0 
MOVEQ #FS_POSRE, DO 


BSR TT3 

BEQ Li 

CMPI.W #-10,D0 

BNE EREXIT —> 
Li MOVE.L D1,D6 


3 Now open a file to the new name 


MOVEA.L A4,A0 
MOVEQ #3,D3 
BSR OPENFILE 
BNE EREXIT 


> 


—-» new file name 
-> buffer 

ID of old file 
length of buffer 


to find position 

find the relative position 
do Trap #3 and check DO 
no error 

EOF? .. 

- - no 

keep position in D6 


open_over 


3; Now AO is ID of new file: A6 is ID of old file 
3 We set the old file to its beginning and copy it to the new 


EXG A6, A0 
MOVEQ #-1,D3 
BSR SET_BEG 
MOVE.W D4,D2 

CPY MOVEA.L A5,A1 
MOVEQ #I0_FSTRG, DO 
BSR TT3 


MOVE.W D1,D2 
MOVE.L DO,D5 


BEQ CPY2 

CMPI.W  #-10,D0 

BNE EREXIT —— 
cPY2 EXG A6, AO 


MOVEA.L A5,A1 
MOVEQ #10_SSTRG, DO 


BSR TT3 

BNE EREXIT —_> 
EXG A6, A0 

TST.L D5 

BEQ CPY 


. 
, 


AO = old ID: A6 = new ID 


set old file to start 
size of .. 
- . buffer 


read a block from the old file 
bytes fetched 

error code 

no error 

was it EOF? .. 

- « no 

AO = new ID: A6 = old ID 

—- buffer 

send the number of bytes fetched 


AO = old ID: A6 = new ID 
EOF? .. 
- can't be so get another block 


3 Now close the old file's channel and delete it 


? 
CPY1 MOVEQ #10_CLOSE, DO 
TRAP #2 
MOVEA.L A3,A0 
BSR DELETEFILE 
BNE EREXITL -——> 


; 
3 Set the new file's position 


? 


MOVEA.L A6,A0 
MOVE.L D6,D1 


BSR SET_BEG1 

BEQ EREXIT 

CMPI.W #~10,D0 

BNE EREXIT > 
EXIT1L MOVEQ #0,D0 
EREXIT MOVEM.L  (A7)+,NAM_REG 


RTS 


old file's name 


new ID 

position 

set old position in new file 
no error 

was it EOF? .. 

- - no! 

no error 


return with AO = new ID 


SET_BEG MOVEQ 
SET_BEG1 MOVEQ 


TT3 TRAP 
TST.L 
RTS 


#0,D1 position 0 
#FS_POSAB, DO set the absolute position 


#3 
DO 


GW_DJW1_ASM 
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STRING HANDLING 


Useful string handling routines. 


- These are based on C68 C style routines adapted to handle QL strings. 
- Parameters are passed on the stack. 

- All registers are preserved. 

- The calling routines must tidy the stack. 


Copy a QL string 
Target 
Source 


4(47) 
H 8(A7) 


QSTRCPY 


MOVEM.L 


MOVE.L 
MOVE. L 
MOVE.W 
MOVE.W 
BRA 
QSTRCPY1 MOVE.B 
QSTRCPY2 DBRA 


MOVEM. L 


RTS 


4(A7) 


3  Concatenate a 


; 8(A7) 


QSTRCAT 


MOVEM.L 


MOVE. L 
MOVE.L 
MOVE.W 
ADD.W 

MOVE.W 
SUB.W 

ADDA.W 
MOVE. W 
BRA 


Nee we wo we 


QSTRNCPY 


MOVEM. L 


MOVE.L 
MOVE. L 
MOVE. L 
MOVE.W 
MOVE.W 
CLR.W 
BRA 
QSTRNCPY1 CMP.W 
BEQ 


DO/AO—A1,—(A7) ; save registers used 


’ 
12+4(A7) ,AL 3; Target address 
12+8(A7),A0 ; Source address 
(AO) ,DO ; Length to copy 
(A0)+, (A1)+ 3 Copy length field 
QSTRCPY2 3; Remove if NULL byte at end wanted 
(AO)+, (A1)+ 3 Copy a byte 
DO, QSTRCPY1 3; loop until finished 
(A7)+,D0/A0-AL 3 restore saved registers 


QL string onto another one 
Target 
Source 


DO/AO-A1,-(A7) 


124+4(A7),A1 3; Target address 
12+8(A7),A0 ; Source address 

(A1) ,DO 3; get old length 

(AO) ,DO 3 Calculate new length 
DO, (A1)+ ; Store new length 

(AO) ,DO 3 Reset to old length 
DO,A1 3 skip over current data 
(A0)+,D0 3 get length to copy 
QSTRCPY2 


Copy a QL string with maximum length check 
4(A7).L 
8(A7) .L 
12(A7).W 


Target 
Source 
Maximum length 


DO-D1/A0-A2,-(A7) 


20+4(A7),AL ; Target address 

A1,A2 3 +e» copied to A2 

20+8(A'7) , AO ; Source address 

20+12(A7) ,D1 ; Maximum length 

(A0)+,D0 3 Length to copy 

(A1)+ 3; Clear target length 
QSTRNCPY2 

(A2) ,D1 ; Check max length not reached 
QSTRNCPY3 3; If so exit immediately 


ADDQ.W #1, (A2) ; Update length 


MOVE.B (AO)+, (A1)+ 3... and copy byte 
QSTRNCPY2 DBRA DO, QSTRNCPY1 3; Loop until finished 
QSTRNCPY3 MOVEM.L (A7)+,D0-D1/A0-A2 

RTS 
3  Concatenate a QL string onto another one with maximum length check 
; 4(A7) = Target 
3 8(A7) = Source 


QSTRNCAT 
MOVEM.L DO-D1i/A0-A2,-—(A7) 
MOVE.L 20+4(A7),A1 
MOVE.L A1,A2 
MOVE.L 20+8(A7) , AO ; Source address 
MOVE.W 20+12(A7),D1 ; Maximum length 


; Target address 
, 
>? 
> 

MOVE.W (A1)+,D0 ; Existing length 
, 
d 
, 


; copied to A2 


ADDA.W DO, AL ; Skip over source length 
MOVE.W (A0)+,D0 ; Length to copy 
BRA QSTRNCPY2 ; Join QSTRNCPY code 


FILE HANDLING 


Friendly versions of file open/delete that will 
allow use of TK2 directories in names. 


These routines assume that the parameters have been set up 
for the respective TRAP #2 call. They can then be called 
in place of the TRAP #2 routine. 


Noe Nee We tee ee we we we ee 


When we OPEN a file we want to try the open in 
the following sequence of events: 
~ The name exactly as supplied 
~ If that fails, the name with the DATA_USE directory 
added to the front. 
- If that fails, and we are doing a read the name with 
the PROG_USE added to the front. We do not do this 
with WRITE types of open as we only want those in the 
current directory if a path is not explicitly specified. 


Noe See tee We tee Wee We we we 


OPENFILE 
MOVEQ #I0_OPEN, DO 
MOVEQ #-1,D1 
MOVEM.L DO/A0,-—(A7) 3 Save name pointer 
; We start by trying the name exactly as passed 
TRAP #2 ; Try operation 
TST.L DO 3 OK? 
BEQ OPENEXIT ; YES, jump 
; If we failed with the first try, we now want 
; to try with the DATA_USE directory added 
MOVEM.L (A7),D0/A0 3 restore saved registers 
BSR DATA_USE 
TRAP #2 
TST.L DO 
BEQ OPENEXIT 
: If the DATA_USE did not work and we are 
; attempting to read a file, then try the 
Ff PROG_USE as well. 
CMPI.B #1,D3 ; OPEN_IN ? 
BGT OPENEXIT 3... NO, then give up 
MOVEM.L  (A7),DO/A0 ; restore saved registers 
BSR PROG_USE 


TRAP #2 


OPENEXIT 


Nee Noo we ee we 


ADDA.W #2%4,47 3; remove saved values 
TST.L DO 3; set condition code 
RTS 


When we DELETE a file we want to try the delete in 
the following sequence of events: 
- The name exactly as supplied 
- If that fails, the name with the DATA_USE directory 


added to the front. 


DELETEFILE 


DELEXIT 


’ 


DATA_USE 
DATA_USE1 


. 
, 
. 
’ 
. 
% 


PROG_USE 


MOVEQ #I0_DELET, DO 
MOVEQ #-1,D1 
MOVEM.L DO/D1/A0,-(A7) ; Save registers 


We start by trying the name exactly as passed 


TRAP #2 3; Try operation 
TST.L DO 
BEQ DELEXIT 


If we failed with the first try, we now want 
to try with the DATA_USE directory added 


MOVEM.L  (A7),DO/D1/A0 } restore saved registers 
BSR DATA_USE 

TRAP #2 

ADDA.W #3*4,A7 3; remove saved values 
TST.L DO 3; set condition code 

RTS 


Get the DATA_USE value, and build up a name 
which has this at the front followed by the 
user's name and try that. 


PEA DATAD 
PEA TK2_BUFFER 3 Target 
BSR QSTRCPY 


ADDQ.L #8,A7 Remove parameters 


d 
MOVE.W #50,—(A7) ; Max length 
MOVE.L A0,—(A7) 3 Source 
PEA TK2_BUFFER ; Target 
BSR QSTRNCAT 
ADDA.W #10,A7 ; Remove parameters 
LEA TK2_BUFFER, AO 3 set AO to new filename 
RTS 


Get the PROG_USE value, and build up a name 
which has this at the front followed by the 
users name and try that. 


PEA PROGD 
BRA DATA_USE1 


3 
3; At entry DO.B = 0 for set both DATAD and PROGD 


, 


= 1 for set DATAD and zero PROGD 


3; No registers are used 


SET_DP 


SET_DP1 


MOVEM.L DO-2/D4/A0-1,-—(A7) 
MOVE.B DO,D4 
MOVEQ #MT_INF,DO 


Set code to D4.B 
Find system variables address 


we 


“ee 


TRAP #1 

MOVE.L SV_DATA(AO),-(A7)  ; Address of DATAD$. . 
BEQ SET_DP1 3 . . If zero no DATAD$ 
PEA DATAD 3; Address for DATAD$ 

BSR QSTRCPY ; Copy it there 

ADDQ.L #8,A7 3; Tidy the stack 

BRA SET_DP2 


ADDQ.L #447 } Tidy the stack 


LEA DATAD, AL 3 Set a zero... 
CLR.W (A1) 3. . DATAD 
SET_DP2 TST.B D4 3 Test for PROGD$ to be set 
BNE SET_DP3 3 zero PROGD 
MOVE.L SV_PROG(AO),-(A7) 3 Address of PROGD$. . 
BEQ SET_DP4 ; . If zero no PROGDS$ 
PEA PROGD 3; Address for PROGD$ 
BSR QSTRCPY 3; Copy it there 
ADDQ.L #8,A7 3 Tidy the stack 
BRA SET_DP5 
SET_DP4  ADDQ.L #4,A7 3; Tidy the stack 
SET_DP3 LEA PROGD, Al ; Set a zero... 
CLR.W (Al ; « PROGD 
SET_DP5 MOVEM.L (A7)+,D0-2/D4/A0-1 
RTS 
DATAD DS.W 29 
PROGD DS.W 29 
TK2_BUFFER DS.W 29 


Oo 


thine ecconarecerancertsr se 


All characters printed to the QL screen use the same character space on the screen. The letters W 
and M for example may take the same space as the normally narrower letters such as | or the number 
{. The QL fonts are called ‘fixed pitch’ because of this. Text in books or newspapers generally vary 
the widths and spacings depending on the character in question, so that a W or M or O can take as 
much space as they need, whereas narrower characters such as an ‘i’ need take no more space than 
they need. This is called Proportional Spacing, where each character can take only as much space 
across a line as it needs. 


| Standard QDOS and SMSQ/E do not include 
support for proportionally spaced fonts, although 
one or two programs such as Text 87 and the 
ProWess/Proforma systems do. 


ort, jena UFC int Spac ings 
LMNOPORST! z abcde fghi jk tunopaqrs tuvwxyz 1234567898 


| Here is a fairly short listing which gives a BASIC 
| procedure to give a limited form of proportional 
| Spacing printing from SuperBASIC or SBASIC. 


Figure 6 - Proportional printing using QL font 


100 REMark Proportional Spacing printing 

110 REMark by Dilwyn Jones Sep. 1997 

120 : 

130 REMark set up the proportional spacing data for a given channel 
140 Setup_Proportional #1 

150 : 

160 CLS 

170 t$ = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ abedefghijklmnopqrstuvwxyz 1234567890! 
180 PRINT 'Using Normal Print Spacing: '\t$\\ : REMark using normal font 
190 : 

200 REMark print same string using proportional data 

210 Prop_Print #1,'Using Proportional Print Spacing:' : PRINT 

220 Prop_Print #1,t$ : PRINT \\ : REMark newlines 

230: 

240 STOP 

250 : 

260 DEFine PROCedure Prop_Print (channel,str$) 

270 LOCal char 

280 FOR char = 1 TO LEN(str$) 

290 REMark change 10 in next line to 20 for CSIZE double height 
300 CHAR_INC #channel, prop%(CODE(str$(char))),10 


310 PRINT #channel, str$(char) ; 

320 END FOR char 

330 CSIZE #0,0,0 : REMark restore standard spacing 
340 END DEFine Prop_Print 


360 DEFine PROCedure Setup_Proportional (channel) 
370 LOCal addr, char,wide%,1c1%,nc1%,1¢2%,nc2%, bit, byte 


390 fonti = CHAN_L(#channel,42) : REMark font 1 address 


400 font2 = CHAN_L(#channel,46) : REMark font 2 address 
410: 
420 DIM prop%(255) : REMark proportional spacing data 
430 1¢1% = PEEK(fonti) : REMark lowest character code in font 1 
440 nel’ = PEEK(fonti+1) : REMark number of characters - 1 in font 1 
450 1¢2% = PEEK(font2) : REMark lowest character code in font 2 

= PEEK(font2+1) : REMark number of characters - 1 in font 2 


460 ne2% 


480 FOR char = 1c1% TO 1¢c1%+nce1%,1¢2%+1 TO 1¢2%+nce2% 
490 IF char <= 1¢1%+nc1% THEN 


500 addr = fonti+(9*(char—1¢1%) )+2 
510 ELSE 
520 addr = font2+(9*(char-1e2%) )+2 


540 wide% = 8 : REMark default is full width char in csize 1,0 
550 FOR bit = 1,2,4,8,16,32,64,128 


560 FOR byte = addr+0 TO addr+8 

570 IF (PEEK(byte) && bit) «> O THEN 

580 prop%(char) = wide% 

590 IF prop%(char) « 2 THEN prop%(char) = 2 
600 EXIT bit 

610 END IF 

620 END FOR byte 

630 wide% = wide% ~ 1 


640 END FOR bit 
650 IF prop%(char) « 2 THEN prop%(char) = 2 : REMark spaces=2 pixels 
660 END FOR char 


680 REMark other characters default to lowest character in font1 
690 FOR char = 0 TO 1¢1%-2,1c2%+ne2%+1 TO 255 : prop%(char) = prop%(1c1%) 
700 END DEFine Setup_Proportional 


fro Arpnatahivve gncde oh diiloricese-susmevie: 1ssleeSI Figure 6 shows a sample output from this program. 
Although it provides a degree of proportional 
Caran) spacing, the font is not really designed for 
EALLINOPORSTUN2 abcdntgh| jk lunopars tuna: 1234567890 proportional spacing printing, so the output does 
not look that different to standard printing. Figure 7 
shows the output of Listing 9, which seeks to 
improve output by using a purpose-made QL font 
held in DATA statements at the end of the program. 
As you can see, it is a bit more effective. 


ing Proportional QL Fonts 
JEFGHIJKLMHOPORS TUUURYZ 


abcdef ghijkimnopars tuvwryz 1234567898 


Figure 7 Sample output using a Proportional Spacing font 


100 REMark Proportional Spacing printing 

110 REMark by Dilwyn Jones Sep. 1997 

120 : 

130 REMark set up an example font (proportional version of QL font) 
140 Setup_Proportional 

150 : 

160 CLS 

170 t$ = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890' 
180 PRINT 'Using Normal QL Fonts:'\t$\\ : REMark using normal font 
190 : 

200 REMark print same string using proportional font 

210 CHAR_USE #1,font1,font2 : REMark switch #1 to new font 

220 Prop_Print #1,'Using Proportional QL Font:' : PRINT 


230 Prop_Print #1,t$ : PRINT \\ : REMark newlines 

240 : 

250 CHAR_USE #1,0,0 : REMark back to default font and reset spacing 

260 RECHP font1 : REMark release heap memory used by above fonts 

270 : 

280 PRINT 'Back to standard font: '\t$ 

290 : 

300 STOP 

310: 

320 DEFine PROCedure Prop_Print (channel,str$) 

330 LOCal char 

340 FOR char = 1 TO LEN(str$) 

350 CHAR_INC #channel, prop%(CODE(str$(char))),10 

360 PRINT #channel,str$(char) ; 

370 END FOR char 

380 CSIZE #0,0,0 : REMark restore standard spacing 

390 END DEFine Prop_Print 

400 : 

410 DEFine PROCedure Setup_Proportional 

420 REMark if using AH/JM/JS/MG limit locals to 9 only! 

430 LOCal fonti_length, font2_length,addr, char,wide% 

440 LOCal 1¢c1%,nc1%,1¢c2%,nce2%,bit,byte,a 

450 =: 

460 REMark "fonti" and "font2" must be kept global to allow font 

470  REMark switching and to be able to release the heap block later 

480 RESTORE 1000 : READ 1c1%,nc1% 

490 RESTORE 2000 : READ 1¢2%,nc2% 

500: 

510 fonti_length = 11+(9%nc1%) : IF (fonti_length MOD 2)=1 THEN fonti1_length 
520 font2_length = 11+(9%*ne2%) : IF (font2_length MOD 2)=1 THEN font2_length 
530: 

540 fonti = ALCHP(font1_length+font2_length) 

550 font2 = fonti + fonti_length 

560 RESTORE 1000 : REMark get font 1 data 

570 FOR a = O TO 11+(9%nc1%)—1 : READ wide% : POKE fontita,wide% 

580 RESTORE 2000 : REMark get font 2 data 

590 FOR a = O TO 11+(9*nce2%)—1 : READ wide% : POKE font2+a,wide% 

600 : 

610 DIM prop%(255) : REMark proportional spacing data 

620 REMark 1c1% = PEEK(fonti) : REMark lowest character code in font 1 
630 REMark nc1i% = PEEK(fonti+1) : REMark number of characters - 1 in font 1 
640 REMark 1¢2% = PEEK(font2) : REMark lowest character code in font 2 
650 REMark nc2% = PEEK(font2+1) : REMark number of characters — 1 in font 2 
660: 

670 FOR char = 1¢1% TO 1¢c1%+nc1%,1¢e2%+1 TO 1¢e2%4+nce2% 

680 IF char <= 1¢1%+nc1% THEN 


690 addr = fonti+(9*(char—1c1%) )+2 
700 ELSE 
710 addr = font2+(9*(char—1c2%) )+2 


720 END IF 
730 wide% = 8 : REMark default is full width char in esize 1,0 
740 FOR bit = 1,2,4,8,16,32,64,128 


750 FOR byte = addr+0 TO addr+8 

760 IF (PEEK(byte) && bit) «> O THEN 

770 prop%(char) = wide% 

780 IF prop%(char) « 2 THEN prop&%(char) = 2 
790 EXIT bit 

800 END IF 

810 END FOR byte 

820 wide% = wide% - 1 


830 END FOR bit 

840 IF prop%(char) « 2 THEN prop%(char) = 2 : REMark spaces=2 pixels 
850 END FOR char 

860 : 

870 REMark other characters default to lowest character in fonti 

880 FOR char = 0 TO 1c1%-2,1¢2%+nce2%+1 TO 255 : prop%(char) = prop%{1c1%) 
890 END DEFine Setup_Proportional 

900 : 


iow 


fonti_length+1 
font2_length+1 


910 REMark data for proportional font 1 


920 : 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


31,96 


’ 
48,72,72,48,72,72 
48,72,72,56,8,16, 
0,0,96,96,0,96,96,0, 
0,0,96,96,0,96, 96, 32,64 
8,16, 32,64, 32,16,8,0,0 
0,0,120,0,120,0,0,0,0 
64,32,16,8,16,32,64,0,0 
48,72,8,16,32,0,32,0,0 
56,68,92,84,92,64,56,0,0 
48,72,72,120,72,72,72,0,0 
112,72,72,112,72,72,112,0,0 
48,72,64,64,64,72,48,0,0 
112,72,72,72,72,72,112,0,0 
120,64,64,112,64,64,120,0,0 
120,64,64,112,64,64,64,0,0 
48,72,64,64,88,72,56,0,0 
72,72,72,120,72,72,72,0,0 
112, 32,32, 32,32,32,112,0,0 
16,16,16,16,16,80,32,0,0 
72,72,80,96,80,72,72,0,0 
64,64,64,64,64,64,120,0,0 
68,108, 84,68,68,68,68,0,0 
72,'72,104,88,72,72,72,0,0 
56,68, 68,68,68,68,56,0,0 
112,72,72,112,64,64,64,0,0 
56,68, 68,68,84,72,52,0,0 
112,72,72,112,96,80,72,0,0 
48,72,64,48,8,72,48,0,0 
124,16,16,16,16,16,16,0,0 
72,72,72,72,72,72,48,0,0 
68,68,68,68,68,40,1 
68, 68,68, 68,84,84 
68, 
16,16, 


1670 DATA 0,0,40,88,72,88 
1680 DATA 64,64,112,72,72, 
1690 DATA 0,0,56,64,64,64 
1700 DATA 8, 7 
1710 DATA 0, 
1720 DATA 16 
1730 DATA 0, 
1740 DATA 64,64 
1750 DATA 64,0, 
1760 DATA 32,0,32, 
1770 DATA 64,64,72, 
1780 DATA 64,64 
1790 DATA 0 
1800 DATA 0 
1810 DATA 0 
1820 DATA 0, 
0 
0 


we 
nN 
~ 
~ 
© 


oOooryry OOD000 
Soy - 
So 


1830 DATA 


3 
1 ’ 
5 0,0 
,112,72,72,72,112,64,64 
5 8 
1840 DATA 8 


6,72,72,72,56,8, 
0,104,64,64,64,0,0 


0 
1860 DATA 32 
1870 DATA 0 
1880 DATA 0 
1890 DATA 0 
1900 DATA 0, 
0 
0 
1 


< ww 


1910 DATA 
1920 DATA 
1930 DATA 
1940 DATA 64,64,64, 
1950 DATA 64 

1960 DATA 4 

1970 DATA 5 
1980 : 


~ 


2 
0 
0 
0 
0 
0 
0 
1850 DATA 0,0 
2 
0 
0 
0 
0 
0 
0 


~~ 


3 


e 


0 
30 
70 

0 


, 


bpltied BRAOONN 
DOWSO9OSD 


64, 


, 


0 
0 
0 
0 
48 
0 
0 
0 
0 


KR 


1990 REMark data for proportional font 2 
64 


2000 DATA 127, 

2010 DATA 84,40,84,40,84,40,84,40,84 
2020 DATA 72,0,40,88,72,88,40,0,0 
2030 DATA 40,80,0,56,72,88,40,0,0 
2040 DATA 16,40,16,56,72,88,40,0,0 
2050 DATA 16,32,48,72,120,64,56,0,0 
2060 DATA 68,0,56,68,68,68,56,0,0 
2070 DATA 20,40,0,56,68,68,56,0,0 
2080 DATA 0,0,60,76,84,100,120,0,0 
2090 DATA 72,0,0,72,72,72,56,0,0 
2100 DATA 0,0,56,64,64,64,56,16, 32 
2110 DATA 40,80,0,112,72,72,72,0,0 
2120 DATA 0,0,120,20,56,80,60,0,0 
2130 DATA 0,0,40,84,88,80,44,0,0 


2140 DATA 16,32,40,88,72,88,40,0,0 
2150 DATA 64,32,40,88,72,88,40,0,0 
2160 DATA 16,40,0,56,72,88,40,0,0 
2170 DATA 72,0,48,72,120,64,56,0,0 
2180 DATA 64,32,48,72,120,64,56,0,0 
2190 DATA 16,40,48,72,120,64,56,0,0 
2200 DATA 80,0,0,32,32,32,16,0,0 
2210 DATA 32,64,0,64,64,64,32,0,0 
2220 DATA 64,32,0,32,32,32,16,0,0 
2230 DATA 32,80,0,32,32,32,16,0,0 
2240 DATA 8,16,56,68,68,68,56,0,0 
2250 DATA 32,16,56,68,68,68,56,0,0 
2260 DATA 16,40,0,56,68,68,56,0,0 
2270 DATA 16,32,72,72,72,72,56,0,0 


2280 DATA 32,16,72,72,72,72,56,0,0 
2290 DATA 16,40,0,72,72,72,56,0,0 
2300 DATA 48,72,72,80,72,72,80,64,64 
2310 DATA 0,16,56,80,80,80, 56, 16,0 
2320 DATA 68,68,40,16,124,16,56,0,0 
2330 DATA 64,32,0,0,0,0,0,0,0 

2340 DATA 68,16,40,68,124,68,68,0,0 
2350 DATA 20,40,16,40,68,124,68,0,0 


2360 DATA 16,40,16,40,68,124,68,0,0 2520 DATA 16,16,56,84,84,84,56,16,16 


, 3 2 + 
2370 DATA 8,16,120,64,120,64,120,0,0 2530 DATA 64,0,64,64,64,64,64,0,0 
2380 DATA 68,56,68,68,68,68,56,0,0 2540 DATA 16,0,16,32,64,68,56,0,0 
2390 DATA 20,40,56,68,68,68,56,0,0 2550 DATA 24, 36,112, 32,112, 36,24,0,0 
2400 DATA 52,68, 76,84, 100,68,88,0,0 2560 DATA 56,68,64,56,68,56,4,68, 56 
2410 DATA 72,0,72,72,72,72,48,0,0 2570 DATA 0,68, 56,68,68,56,68,0,0 
2420 DATA 48,72,64,64,64,72,48, 16,32 2580 DATA 0,20,40,80,40,20,0,0,0 
2430 DATA 56,0,68,100,84,76,68,0,0 2590 DATA 0,80,40,20,40,80,0,0,0 
2440 DATA 60,72,72,124,72,72,76,0,0 2600 DATA 32,80,32,0,0,0,0,0,0 
2450 DATA 60,72,72,76,72,72,60,0,0 2610 DATA 0,16,0,124,0,16,0,0,0 
2460 DATA 0,0,36,88,72,88, 36,0,0 2620 DATA 0,0,16,48,124,48,16,0,0 
2470 DATA 56,68,64,56,68,68,56,0,0 2630 DATA 0,0,16,24,124,24,16,0,0 
2480 DATA 56,68,68,124,68,68,56,0,0 2640 DATA 0,16,56,124,16,16,16,16,0 
2490 DATA 96,16,16,16,40,72,68,0,0 2650 DATA 0,16,16,16,16,124,56,16,0 


2500 DATA 0,0,72,72,72,104,88,64,64 
2510 DATA 0,0,60,104,40,40,40,0,0 


In listing 9, the DATA statements from line 1000 onward hold the data for the lower system font, while 
the DATA statements from line 2000 onward hold data for the upper system font. Taken together. both 
set up the two QL system founts to hold suitable characters for proportionally spaced print output. 


The procedure called Setup_Proportional differs slightly in both programs, but basically is used to 
generate an array of proportional spacing data for each character - how wide (in pixels) to print each 
character. In listing 8, it takes its data from the existing QL font for the channel indicated by the 
parameter for the procedure. It uses the CHAN_L function from DIY Toolkit to locate the system fonts 
and builds up a set of data in the array called prop%({) which controls how wide each character is to be 
printed. The "FOR char’ loop scans all characters from the rightmost pixel (bit 0) until it finds a set (INK) 
pixel and makes a note of this position in the prop%{) array. This routine need only be called once for a 
given channel, before printing to that channel. 


Once it has been set up, printing is done by using the Prop_Print procedure. This has two parameters, 
the channel number to be printed and a string to be printed. Note that if you want a newline to be 
printed, you will either need to include a CHRS(10) in the string, or add a blank PRINT statement 
afterwards: 


Prop_Print #1, 'Hello' &CHR$(10) 
Or 
Prop_Print #1,'Hello' : PRINT 


Study the lines before the STOP statement to see how to use the procedures. You need a call to 
Setup_Proportional first to create the necessary data in the prop% array. 


If using the special font in listing 9, you need a "CHAR_USE #channel, fonti,font2° command to set the 
font for a given channel number. 


From there on, you can use the Prop_Print #channel,string’ command to print a string using 
proportional spacing. This uses a separate CHAR_INC command to set the proportional spacing for 
each character in turn, so printing is a bit slower than the usual PRINT commands. Also, it only works 
for CSIZE 0,0 in the current version - you will need to vary the CHAR_INC values for different sizes of 
text. 


After proportional printing, you need to reset the character increment to normal full size text, either by 
resetting the font or CHAR_INC #channel,6,10 for example. And of course, if you are using the special 
proportional printing font of listing 9, your program needs to release the heap space allocated for the 
new font with an RECHP command and reset the system font with CHAR_USE #channel,0,0 to restore 
everything back to normal. 


about the history and background of J-M-S. | 
searched through the last 5 or 6 volumes of QL 
Today - didn't find anything. | asked Geoff ... he 
did not find anything or remembered that | wrote 
something, so here we go: 

J-M-S was founded shortly after my 18th birthday 
- there are too many restrictions in running a 
company if you are under 18. 

However, | did start computing in 1980 ... with the 
ZX80. At this time, my main hobby was building 
model trains, landscape, houses, etc. A room in 
my parent's house was used for it, and it was not 
that small. | was already interested in computers, 
but at this time, they were unffordable (CMB PETs 
at big warehouses were the most interesting 
item in the warehouses at this time for me). 
Model trains were much more affordable at this 
time. Both situations have changed nowadays. 
The very early bits in a short summary: The 
ZX80 was my first computer However there 
were problems. So | bought a 2X81 fairly soon. 
Which worked much better RAM pack was 
required, ZX printer was ordered (and arrived 
many, many months later). All sorts of gadgets 
were bought - nothing working really reliable 
(names like DK-tronics come to mind). Many, 
many programs were bought (Ultimate comes to 
mind), most of the things were ordered from the 
UK. | did some things for Profisoft in Osnabr-ck, 
but | soon went to the QL when it arrived. 

After | bought the QL, | visited my first Microfair in 
London, met several people and my first pro- 
grams were sold by a UK company which disap- 
peared several months after they started selling 
(| don't remember the name .. something with 
Enterprise’) .. SO no payment. Ultrasoft existed 
and promised to sell the products. In these days, 
Ultrasoft consisted of Martin Berndt and David B. 
Smith... but after some months they split as well 
and | was having trouble again. | then remember 
Anke Pabich from Dusseldorf sold my products, 
and so did some others. Once again, products 
were shipped, but more and more invoices re- 
mained unpaid. No details, | forgot most of them. | 
prefer to remember the positive. 

Also, | was doing work for Andreas Budde of 
ABC-Electronics over the years... and | remember 
him very positively as he always fulfilled his pro- 
mises, paid invoices in time and | still have a 
friendship with Andreas... over all the years. So 
many others came and went, but he is definitely 


Somehow, | thought | already wrote ‘something a 


a positive exception. 

The model train had not been touched for years 
and had been stowed away shortly after | bought 
the QL .. so the room became the guest room 
for visitors. 

| do not remember the years, | am compressing 
many years ... but in the early 5 or 10 years of my 
QLing time, | made so many journeys, met so ma- 
ny nice people... there was always a QL show lo- 
cally, in the country or somewhere in the world. | 
traveled with friends, or other members of the 
German QL club (I was part of the editorial team 
for some years) ... and remember names like Albin 
Hessler, Oliver Fink, Stuart Honeyball ... all pro- 
grammers which do not program for the QL any- 
more. 

| visited many people, and they visited me, stayed 
in Duisburg, and we visited many QL Today 
shows together. Great times we had! 

| remember my first trip to the USA together with 
Urs Konig - that was really great. 

| remember the visits to QJump in the UK and 
later in France.. great times, where problems 
which were collected over the months were 
fixed in a compressed, intense long weekend. 

| remember all the enjoyable car trios with Bernd 
and Marcel to all the UK meetings. 

The more | write here and the more | think about 
it, the more comes to mind. There are so many 
stories which | remember thinking of meetings in 
Austria, The Netherlands, Italy, France, Denmark, 
Sweden (the eye problem which turned me into a 
pirate), the ridiculous trip to Norway where | 
picked up my first ATARI QL emulator), the funny 
visit to Dilwyn together with Darren and Marcel, 
great US trips with Jim and Roy and many, many 
other journeys. 

| remember setting up my first BBS to support 
the QLers online with the help of Phil Borman and 
Marco Holmer. 

| cannot go into details here, as it would probably 
fill an issue or more ... but | think | will write about 
some of the most interesting and most funny 
trips in future issues. 

However, thinking about all the 25 years, | have to 
say that | met many great people, got some great 
friendships, enjoyed every year of it and never 
regret to be part of the QL community. 

The list of names, countries etc. is definitely 
incomplete, but please forgive me. 25 years are a 
long time, and | am getting older as well. 


Kaiser-Wilh.-Str. 302 D-47169 Duisburg 
http://SMSQ.J-—M-S.com SMSQ@J-M-S.com 
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So, | end this little trip into my history by saying 
THANKS TO EVERYBODY whom | learned to 
know in all these 25 years, customers, show 
organisers, friends .. | am really hoping to see 
many of you again - at a forthcoming QL show (I 
know, there are not that many) or a personal visit. 
ps: after over 20 years, | am back enjoying model 
trains again. There are wonderful exhibitions in 
Hamburg, Berlin and round the corner 
(modellbahnwelt-oberhausen.de (even with live 
cams).. the Ruhrgebiet in the 60's and 70's in 
miniature .. they had to declare being insolvent 
recently, but | hope they will survive! If you're near 


the CentrO in Oberhausen, go and see them, it's 
worth the trip). Locs nowadays come with a 
digital decoder and can easily be controlled by 
computers, but the situation is the opposite as it 
was 25 years ago: now computers are dead 
cheap, but model trains are rather unaffordable. 

| was hoping to get some short comments from 
you when | placed the request on the QL users 
group. | got congratulations - thank you! If you stil 
feel you would like to write something, maybe 
about your first contact to J-M-S etc., please do 
so. Does the font used for "JMS is 25° on the 
cover remind you of something..? 


There could be a fifth columnist in the midst of 
the QL community. A man who has pledged an 
undying loyalty to the QL, but who seems to 
have a touching faith in a product of a certain Mr. 
William Gates. | cannot reveal his true identity, but, 
as he is a Welshman, | shall preserve his anony- 
mity by giving him that commonest of Welsh sur- 
names, Mr. Jones. 

Readers will know that QL Today has long of- 
fered Quanta 2,000 words in the magazine to 
present their case. Mr Jones has responded to 
this offer on Quanta’s behalf, and was very proud 
of the fact that his article was exactly 2,000 
words long. However, my own check showed it 
to be only 1,995 words and | sent him an email 
rebuking him for his error Mr Jones was unrepen- 
tant and assured me he was right because 
Microsoft Word had told him so. 

To my great consternation Jochen Merz backed 
up Mr. Jones saying that his version of Microsoft 
Word also came out at 2,000 words. He softened 
the blow by adding a smiley to his pronounce- 
ment. | was grateful for this, but for the wrong 
reason. | now have an excuse to go wildly off 
topic in part of this article. 

| do not possess Word and | did my word count in 
Lotus Word Pro. Microsoft Works and Quill also 
come out at 1,995 words, but the other QL word 
processors differ Perfection makes it 2,002 and 
Text87 2,001. My own Style-Check program 
comes out at 2,003. Armed with the knowledge 
that no other word processor agreed with 
Word's word count | triumphantly emailed Mr. 
Jones, “Gotcha?” 

It does not surprise me that different word pro- 
cessors give a different word count for this docu- 
ment. What does surprise me is that the diffe- 
rence between the highest and lowest word 


count is only 8 words, and that three word pro- 
cessors came out with the same value of 1,995 
words. The moral of this tale is that word counts 
in word processors are estimates - albeit in most 
cases good estimates. It is well nigh impossible 
to make an accurate word count by computer 
and | suspect, although | have not researched 
this, that word counts of technical documents 
may show the greatest differences between 
word processors. 

| learnt a lot about the problems of counting 
words when | wrote Style-Check. Much of the 
work of style checkers is done by statistics and 
thus you need accurate ways of calculating the 
number of words and syllables and the length of 
words in a document. It is far more difficult than 
first impressions suggest, and shortly after relea- 
sing Style-Check | tweaked the word count rou- 
tines to make them approximate to the word 
counts given by Text87, which many regard as 
being the most professional QL word processor 
The simplest and crudest way of making a word 
count is to count the number of spaces in a 
document. However this will only give an appro- 
ximate result as it does not take into account the 
idiosyncrasies of different writers. Sometimes 
there will be more than one space between 
words. In the early days, when fixed font widths 
were the norm, some word processors used 
spaces for tabs. There are writers who do not 
leave a space between sentences or after a 
punctuation mark. And in most word processors 
there is a Line Feed instead of a space at the 
end of each line. You thus have to count spaces, 
punctuation marks and Line Feeds and then write 
routines to check that you have not double 
counted. Incidentally are brackets - of all types - 
punctuation marks? 


There can also be a problem with both soft and 
hard hyphens. Most of us would say that ‘co-opt’ 
is one word, but Is ‘ink-well one word or two? It 
would be an onerous job to write a routine to 
distinguish between the two, and instead you 
choose either one or the other for all hyphens. 
Most people quickly suggest this as one of the 
reasons for differences in the word count bet- 
ween word processors, but there are many 
others. Can't’ is short for “cannot” which is one 
word, but ‘don't’ is short for “do not’ which is 
two. Again it would be difficult to write a routine 
to distinguish between the two. If | am a VIP and | 
have just got angry in public and told someone 
to "bugger off’ it might get reported in the pa- 
pers. Some journalists would use the term itself, 
which has two words, but others would prefer 
the form "b¥gg*r off’ which would be 4 words in 
a word count unless you wrote a routine for this. 
Nearer home there are the QL filenames. |s 
"program_bas’ one word or two? And how would 
we count the PC equivalent ‘program.bas"? 
Almost certainly two words unless we wanted to 
write another complicated exception routine. 
Numbers are an even bigger problem. Are num- 
bers to be treated as words at all? *4” is simple 
as it iS pronounced ‘four’, but °444” is pro- 
nounced "four hundred and forty four’. Is it one 
word or five words? It could make a difference if 
we were word counting for the broadcast media 
rather than the print media. An even bigger pro- 
blem is °4.4°. That would come out as two words 
unless we write another routine to distinguish 
between decimal points and full stops. And what 
about dates? The QL was launched on 121.1984, 
which is three words unless you have an excep- 
tion routine. 

| learnt something of the limitations of counting 
Statistics by computer when | discovered that 
Style-Check assessed an academic paper | had 
written as being at the reading level of a primary 
school child. The article was a research study on 
the growth of criminal sophistication in a group of 
adolescent delinquents and contained a detailed 
diary of their numerous court appearances with 
dates in the form of 1211984. Style-Check as- 
sumed that the piece contained many senten- 
ces that were both short and had no long words 
and thus was suitable for young children. 

And then you have all the mathematical, chemical 
and other scientific formulae. How do handle 
Greek letters? Is boric acid, B(OH)3 one word or 
three? 

One thing that | did not have to worry about 
when | wrote Style-Check was smileys. Should 


smiley’s be counted as a word or not? Most 
western smileys are made up from punctuation 
marks and will not appear in a word count. The 
occasional one - (:- 0) - will 
At this point | am about to go seriously off topic. 
Humourless pedants should avoid the next para- 
graph. 
Unlike western smileys, oriental smileys are writ- 
ten horizontally and can contain letters. They are 
a potential nightmare for the word count pro- 
grammer. In texts written by Japanese | fre- 
quently came across (T_T) and was certain that 
it was not a QL filename. Could it be a smiley? | 
researched Japanese smileys and now have 
some 14 pages of them. {T_T) means defeat or 
sadness. See it as tears streaming from the eyes. 
The Japanese have smileys for sleeping with 
your girl friend - {{(-_-)(-_-)]} - and not sleeping all 
night - (==). Could the two activities be related? 
Japanese smileys are heavily influenced by the 
manga or comic strip culture popular among 
young Japanese and can include roman, greek 
and cyrillic letters as well as other symbols that 
are difficult to reproduce on a western keyboard. 
My last example is one such and represents a 
person so crippled up with laughter that he is 
banging a table. 

( V )\s_Bkntvity! ! 
(The characters before the exclamation marks 
are Japanese words meaning ‘bang bang”. | shall 
now formally bow out of this off topic paragraph 
using the Japanese bowing smiley - m(__)m - to 
allow our humourless pedantic friends to rejoin 
US. 
In short you have to be sceptical about the word 
count that your word processor produces, and 
some texts should be treated with greater scep- 
ticism than others. | check the word count of 
most material that comes into QL Today because 
that gives me an idea how many pages an article 
will take up. However | am always careful about 
the work of George Gwilt and Norman Dunbar 
simply because they often have large sections of 
assembly code in their articles that can distort 
the true word count. There is a similar problem 
with SuperBasic. In practice | check only the text 
of SuperBasic contribution as the number of lines 
in the basic will give me some idea of its length in 
pages. 
| suspect this article will show huge differences 
between word processors because it contains 
many examples of word counting problems. | 
shall add a postscript to show if | am right. 


POSTSCRIPT 

WordPro 1,464 
Works 1,464 
Open Office 1,465 
Quill 1,464 
Perfection 1,482 
Text87 1,457 
Style-Check 1,499 


Rekondt wrote “how nice [it would be] to use 
the Windows facility of changing a window size 
in the lower right edge of a window.” (qlusers 
30/11/2008, Program Updates). Wouldn't it just! 
Thanks to Wolfgang Lenerz and Marcel Kilgus, 
on later versions of SMSQ/E we now have an 
interactive window move routine that allows the 
user to click on the window move button and 
visibly drag a window to another location on the 
screen and drop it there. If the platform is too 
slow to comfortably move the contents with the 
window, you Can opt for just moving a represen- 
tative outline instead. This only works with a 
mouse, so if you use the keyboard instead, or if 
you switch off the feature, SMSQ/E reverts to 
the old Qram method of moving the window by 
icon. 


Outline resizing is probably the best we can expect 


Ideally, interactive resize should be implemented 
at the system level: Moving the pointer to the 
edge of a window would change the sprite to an 
appropriate Resize Sprite and the user could just 


Some time ago, on the QL-Users’ email list, Ralf 


Interestingly once again WordPro, Works and Quill 
all agree indicating that they are using the same 
algorithm. | checked the word count in Open Of- 
fice after completion of the article. It gave a word 
count of 1,998 for the Quanta document. 

Sorry, Mr. Jones, | don't know how many words a 
Word word count would give. 

(>_< )o----- (*o*)o 


drag the edge to resize the window and drop it 
again (by releasing the mouse button) once the 
desired size has been attained. A spare byte in 
the Menu Definition could be used to indicate 
which of the four edges and four corners of the 
window were resizable.. Dream on. 

In the mean time, the following demo program 
attempts to achieve something similar here and 
now. Due to issues in the lower layers of the 
Pointer Environment [PE] it seems to be impossi- 
ble to achieve quite the same effect as a typical 
Windows resize, but it works well enough | think. 
Just a small point: | don't try to update the 
window's contents during resizing as this requi- 
res a lot of computational power - like a dedi- 
cated graphics chip! It is also not trivial to 
achieve, and it seems unlikely that it could be 
done in any standard way with the current PE 
object model, though | could be wrong. 

This program, wresz, demonstrates mainly three 
techniques: 1) Interactive outline resizing, 2) un- 
conventional use of Application Windows [AWS], 
3) hidden Loose Items [LIs]. Incidental to (2) are 
techniques for reading AWs by dropping down to 
discrete routines when AWs are encountered and 
handling the inherent limitations (ie. keystrokes 
are local to each AW). | make no claims of being 
either the first or the last word in how the desired 
effects may be achieved, nor in the perfection of 
their implementation, but | hope this demo will be 
of use all the same. The controls are operated as 
follows: 


Move: Move the pointer to the titlebar and it 
changes to a mini window move icon. Click (HIT 
or DO with the mouse buttons) on the titlebar 
and interactive move is initiated according to your 
WM_MOVEMODE settings. You can also move 
the window by hitting the Ctrl+F4 key [CF 4] any- 
where in the window. This turns on the internal 
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window move sprite which you move, by mouse 
or cursor keys, to the desired location and then 
click again to have the window redrawn there, as 
in the bad old days. 


Resize: Move the mouse to the Bottom Right 
Corner [BRC] of the main window. The cursor 
changes to the move corner sprite. Click on the 
BRC and an outline of your window appears. This 
can be resized between the minimum allowed 
size and the maximum available size. Click again 
and the window is redrawn at the desired size. In 
the complete version of this program, that | hope 
will be made available to readers, the text con- 
tents of the window is reformatted and displayed 
at the new size. Resize can also be initiated by 
pressing the function key Ctrl+F3 [CF3]. This 
immediately fires up the resizing routine and you 
can resize using the mouse or cursor keys. 


Finally ESCape [ESC]. Press ESC in any AW 
without a handler and the program terminates. 
Press ESC in the Move AW or in one of the 
Resize AWs and the pointer jumps to the middle 
of the window. You have to press ESC again to 
quit. This demonstrates that key presses are 
local to each AW. Great when you want that 
behaviour, a nuisance when you don't. 


Main window. Note the scaling flags at X, Y and XO 


Thanks to Marcel, Albin Hessler’s EasyPointer 
[EZP] toolbox has been updated to incorporate 
most of the facilities of PE. In other develop- 
ments, George Gwilt has created an alternative 
toolbox that lends itself better to the Turbo world 
view, while Norman Dunbar continues his mission 
of documenting, and educating us in the ins and 


outs of PE. This is good stuff and deserves our 
gratitude and support. 


| make no apologies, however, for being a dyed- 
in-the-wool SMSQ/EasyPointer/QLiberator adhe- 
rent, as | have been so since their respective be- 
ginnings, and they continue to provide good 
mileage. wresz depends on those systems to 
develop, compile and, to some degree, to run. | 
leave it to the experts of those other faiths to 
re-work or produce their own version of what | 
am trying to show here. If you are acquainted 
with QDOS/ EasyPEasy/ Turbo, etc, with respect 
to PE programming, you may find it not too diffi- 
cult to adapt it accordingly. The compiled pro- 
gram should, however run on all systems sport- 
ing PE2. As it stands, you will need to be running 
recent versions of SMSQ/E (v3.13+), EasyPointer 
(v4.09+) and QLib (v3.35+) to run or develop this 
code further You will also need the latest ptrmen 
(V4.08+) toolkit (included with EZP). 


For this project you'll first need to prepare a suita- 
ble menu. The illustration shows my menu design 
in EasyMenu. A 200x140 pixel window with a 
titlebar containing an ESC button. However, it isn’t 
quite as simple as it looks! The next picture, a 
composite, shows its other components. There 
are two Information Windows 
[IWs], the first being the title- 
bar the second creates a 
border around the ESC item, 
to avoid messing up the dis- 
play when the pointer outlines 
it, Next there are three Lls: 
The ESC item, and two 
hidden Lis. AS you can see, 
the latter have no dimensions 
and are placed in the top left 
corner [TLC] of the window. 
Although | have made them 
0x0, | have offset their posi- 
tions to avoid confusing the 
application (and the program- 
mer!). | can no longer remem- 
ber whether this is strictly ne- 
cessary in the former case, as EZP and Wman 
have evolved over the years. The ESC item's 
attributes and selection key Is what you'd expect. 
The two others’ selection keys are CF4 and CF3 
- or the standard keystrokes for Move and Re- 
size, respectively. 


Finally, there are four Application Windows. The 
first one is the Move item and covers part of the 


titlebar and is pixel-aligned to it so as to be 
invisible. You cannot have a LI covering an 


Composite of three EZP element menus 


AW (or visa versa) so the AW runs from origin 
0x0 to the edge of the ESC LI. It is borderless 
with attributes the same as for the titlebar IW. 
However, it has its own sprite. You could either 
stipulate the sprite to be the standard Move 
Window sprite or as | have done, make a 
miniature Move sprite of your own to go with it. If 
you have more buttons on the titlebar you will 
have to adjust the AW accordingly and you may 
perhaps need more than one AW with the same 
attributes and sprite to fill in the gaps. As you will 
see later on in connection with the Resize AWs, 
their function is easy to group as a single item. 
The next two AWs are the Resize bars. These 
are two thin, borderless AWs of about 4x14 
pixels located at the BRC of the main window. 
Actually, one is slightly longer than the other so 
as to reach right into the corner without 
overlapping the other Four pixels wide may be 
too skinny for some; you may consider it rather 
fiddly to find it with the pointer | have made my 
resize bars visible here, but they could just as 
well have blended in with 


Sample corner resize sprite 


the main window border, only revealing their exis- 
tence when the pointer sprite changes 
to the corner resize sprite (see illustra- 
tion). 

Many resize scenarios are possible, of 
course. Using the same technique, you 
could provide the facility to allow every 
edge and every corner to be stretched, 
as most Windows programs do, or just 
the bottom and/or right edges. But the 
most useful compact version, to my 
mind, is the BRC one demonstrated here. 
The final preparation you'll need to make 
is to create an APPA file. EZP progra- 
mmers will know what these are and 
how to create them, but others may 
require a short explanation: APPA files 
consist of a collection of all the EZP 
components your program needs; your 
menu definition(s), sprites and, if you 
want, the ptrmen toolkit extension(s) your pro- 
gram uses. EZP includes a program to build 
these files from the output files produced by 
EasyMenu and EasySprite. The APPA file needed 
here must contain the menu definition plus the 
corner sprite described above. They can then be 
accessed by the program as APPAO(’wresz’) 
(the menu) and APPAO('CornB’) (the corner 
sprite). 


Below is the code to make it all work. Only 
salient points are commented and the comments 
relate to the block immediately above unless 
otherwise stated: 


1 REMark $$chan=6 

2 REMark $$stak=360 

3 REMark $$heap=1600 

4 REMark $$asmb=ram1_rz_Wresz_app,0,60 
5: 

6 REMark Interactive Move and Resize Demo 
7 REMark by pjwitte jan 2009. Via0l 

8: 

9 REMark Requires SMSQ/E + ptrmen 

10 REMark Compile with QLIB 

11 REMark Compiled should run under QDOS 


12: 
Standard header showing files to be included. 
During testing these files should be LRESPRed. 


13 REMark Menu definitions 


14 awmv% = 1: REMark Move 

15 awcer% = 2: REMark Corner right 

16 aweb% = 3: REMark Corner bottom 
17 awin%? = 4: REMark Main app win 

18 liqu% = -1: REMark LI quit 

19 limv% = -2: REMark Hidden LI Move 
20 lirz% = -3: REMark Hidden LI Resize 


These are the object numbers relating to the 
menu elements. I'll use the mnemonics to refer to 
the relevant object. Thus awmv refers to the 
Move AW (Here awrz = awcr and awcb.) 

21 mvec% = 14+24+8:REMark Return conditions 
22 irt% = 48: REMark Immediate return 
23 DIM pv4(16): REMark Pointer Record 

24: 


25 REMark Mise definitions 
26 esc% = Bee REMark ESCape 


27 kef3% = : REMark Key CF3 — Wresz 
28 kef4% = : REMark Key CF4 — Wmove 
29 wwd = re ani -» Window Working Def 
30 : 


31 sp_winbg% = 513: REMark Window backg 
32 sp_winfg% = 514: REMark Window foreg 
33 ww_xorg = 36:REMark WWD offset $24 
34 ww_yorg = 38: REMark WWD offset $26 
35: 


36 r2bt% = 4: REMark Resz border thick 
37 rzbe% = 228: REMark Resz border colour 
38 minx% = 200: REMark Min window size 
39 miny% = 140: REMark (from menu) 

40 sizx% = minx%: REMark Start size = min 
41 sizy% = miny% 

42 posx% = -1: REMark Start position 

43 posy% = posx% 

44k = 0: stat% = 0: REMark GLOBal 

45: 

46 x% = 0: y% = 0: REMark Scratch 

47 : 


Some definitions, variable and constant. 


48 REMark Program start 

49 SetWin 

50 : 

51 REPeat main 

52 k = MCALL(#ew\ k, stat) 
53 SELect on k 


54 = liqu%: MCLEAR#cw: CLOSE: STOP 
55 = limv%, awmv%: MoveWin 

56 = awcb%, awer%: ReszWin 

57 = lirz%: ReszWinBRC 


58 END SELect 

59 END REPeat main 

60 : 

Main program loop. This is a standard menu call 
(MCALL). It triggers when the user interacts with 
one of the objects, whether they be loose items 
(Lis) or application windows (AWs). The ESC but- 
ton, referred to as liqu (LI quit), is quite standard. 
However, the window move routine, MoveWin is 
triggered both by the hidden LI, limv, and a user 
Click on the titlebar AW, awmv. The MoveWin rou- 
tine will sort out whether the CF4 function key 
has been pressed or whether this is an inter- 
active move. 


Note that the handling of LI keystrokes, have to 
be processed in each AW handler or else they 
are just ignored: Only if the pointer is outside any 
AWs with a handler, do they get processed in the 
main loop. 

Should your pointer hover about one of the BRC 
AWs, the PI will take care to display the corner 
sprite. If you then click on one of those AWs, 
ReszWin, the awrz handler, is reached. Finally, the 
hidden LI, lirz, gets it if the CF3 key gets pressed. 
This drops directly into the interactive resize rou- 
tine, ReszWinBRC. 


61 DEFine FuNction ReadAW%(awno%) 

62 LOCal k% 

63 REMark GLOBal cw, mvec%, pv% 

64 REMark Read an App Window 

65: 

66 RDPT#ew; mvec%: PVAL#cw; pv% 

67 IF (pv%(2) + 1) «> awno%: RETurn esc% 

68 k% = pv%(6) 

69 IF k% = esc% THEN 

70 REMark Centre pointer in awin% 

71 RDPT#ew; irt%, posx% + sizx% / 2, 
posy% + sizy% / 2 

72 END IF 

73 RETurn k% 

74 END DEFine ReadAW% 

75 : 

This is a general AW scanner, called by the AW 

handlers. It returns if the pointer moves out of the 

relevant AW or if ESC is pressed. If ESC is detec- 

ted, it centres the pointer in the program window 

and returns. This behaviour is designed to get 

the pointer out of the AW and put it somewhere 

central where any further keystroke commands 

may be listened for — in this case only Quit. 


76 DEFine PROCedure SetWin 

77 REMark GLOBal ew, cd, .siz%, .pos% 

78 REMark Open main window, get position, 
attach & format display window 


79: 
80 ew = FOPEN("con_") 
81 cd = FOPEN("con_") 


82 MDRAW#ew; APPAO('wresz'), posx%, 
posy%, sizx%, sizy% 

83 wwd = MWDEF(#ew) 

84 posx% = PEEK_W(wwd + ww_xorg) 

85 posy% = PEEK _W(wwd + ww_yorg) 

86 MWLINK#ew, awin%, #ced 

87 WM_PAPERr#cd; sp_winbg% 

88 WM_INK#ced; sp_winfg% 

89 REMark Display some text 

90 END DEFINE SetWin 

91: 

This routine merely opens the consoles and 

draws the program window. It also opens a 


fe 
mewn 


channel that is linked to awin; any window IO 
sent to that channel [#cd] will appear in awin. A 
call to display some text was removed from line 
89 as the routine would unnecessarily lengthen 
the listing, but that's where the action could go. 


92 DEFine PROCedure MoveWin 

93 LOCal aml, k% 

94 REMark GLOBal ew, k, posx%, posy% 

95 REMark Move by WM_MOVEMODE or by key 
96 REMark Read Move AW 

97 : 

98 IF k = limv% THEN 

99. WinMove: REMark Move by key 

100 ELSE 

101. REPeat aml 


102 k% = ReadAW%(k) 

103 SELect on k% 

104 = esce%: EXIT aml 

105 = 1, 2: WMOV#ew; -—1: EXIT aml 
106 = kef4%: WinMove: EXIT aml 
107 = kef3%: ReszWinBRC: EXIT aml 
108 END SELect 

109 END REPeat aml 

110 END IF 


111 posx% = PEEK_W(wwd + ww_xorg) 

112 posy% = PEEK_W(wwd + ww_yorg) 

113 END DEFine MoveWin 

114 : 

This is the window move handler. Firstly, if CF4 
was pressed while the pointer is in any other 
location than. awmv, a window move, using EZP's 
internal routine, Le. saving the relative positions of 
all the window components, is performed. 
Otherwise, the pointer is in awmv, and the AW 
handler is called to read events in that AW. If user 
presses a HIT or DO while in awmv he means to 
move the window interactively using Wman. 
Finally, what if the pointer is in awmv and the user 
presses CF3 (line 107)? He wants to resize, of 
course, SO interactive resize is initiated imme- 
diately. The new x/y positions are fetched direct- 
ly from the Window Working Definition [WWD]. 


115 DEFine PROCedure WinMove 

116 LOCal x%, y% 

117 REMark Use Wman routine 

118 : 

119 x% = -1: y% = x% 

120 RDPT#cew; irt%, x%, y% 

121 x% = x% — PEEK_W(wwd + ww_xorg) 

122 y% = y% — PEEK_W(wwd + ww_yorg) 

123 WMOV#ew: REMark Move, keep layout 
124 RDPT#ew; irt%, x%, —y% 

125 END DEFINE WinMove 

126: 

This wrapper for WMOV saves and restores the 
pointer position. | find it annoying that the pointer 


jumps to the TLC every time | do a window 
move by keystroke. Using WMOV#ew;-1, which 
deploys the internal Wman routine, leaves the 
pointer in situ and restores it on exit, but it also 
messes up the window furniture and | have as. 
yet found no workaround. Here | read the current 
position (line 120), make the positions relative to 
the window origin, perform the move, and finally 
restore the position. 


127 DEFine PROCedure ReszWin 

128 LOCal wsl, k% 

129 REMark GLOBal ew, k, posx%, posy% 
130 REMark Read BRC AWs 

131 REPeat wsl 

132 k% = ReadAW%(k) 

133 SELect on k% 


134 = esc%: EXIT wsl 

135 = kef3%: ReszWinBRC 

136 =41, 2: ReszWinBRC 

137 REMark Restore pointer 

138 RDPT#ew; irt%, (sizx%), —(sizy%) 
139 = kcef4%: k = limv%: MoveWin 

140 EXIT wsl 

141 END SELect 


142 END REPeat wsl 

143 END DEFine Res2Win 

144 : 

The handler for awcr and awcb. Pretty much as 
for MoveWin As it doesn't know which of the 
two corner AWs it will be reading, it supplies the 
universal variable k, returned from MCALL, to the 
AW reader, which works for either 


145 DEFine PROCedure ReszWinBRC 

146 LOCal rz2l, cz, ymx%, px%, py%, x1% 
147 LOCal ox%, oy%, cx%, cy% 

148 REMark GLOBal ew, pv%, sizx%, sizy% 
149 REMark GLOBal posx%, posy%, rzbt%,.. 
150 REMark Interactive resize routine 
151 : 

152 REMark Store current pointer position 
153 cx% = -1: cy% = cx% 

154 RDPT#ew; irt%; cx%, cy% 

155: 

156 REMark Make relative 

157 cx% = cx%-PEEK_W(wwd + ww_xorg) 

158 cy% = cy%—-PEEK_W(wwd + ww_yorg) 

159 : 

160 REMark Work out max screen space, 
161 REMark draw window & set outline 
162 FLIM#cw; xmx%, ymx%, ox%, oy% 

163 xmx% = xmx% — posx% 

164 ymx% = ymx% — posy% 

165 ox%.= sizx% — rabt% 

166 oy% = sizy% — rzbt% 

167 CLOSE#cd: CLOSE#ew 

168 cz = FOPEN('con_') 


169 OUTL#cz; xmx%, ymx%, posx%, posy%,0,0,0 

170 : 

171 REMark Draw initial window box 

172 OVER#c2; -1 

173 : 

174 REMark left, right, top, bottom 

175 BLOCK#ez; rzbt%,sizy%,0,0, rzbc% 

176 BLOCK#cz; rzbt%, oy% — rzbt%, ox%, 

rzbt%, rzbe% 

177 BLOCK#ez; ox%, rzbt%,rzbt%,0,rzbe% 

178 BLOCK#c2; 0x%,rzbt%,rzbt%, oy%, rzbce% 

179 : 

180 REMark Set appropriate resize pointer 

181 REMark sprite and put in BRC 

182 SPRS#cz; APPAO('CornB') 

183 x% = posx% + sizx% — rzbt% 

184 y% = posy% + sizy% - rzbt% 

185 px% = sizx%: py% = sizy% 

186 : 

187 REMark Draw outline interactively 

188 REPeat rz21 

189 RDPT#cz; mvec%, x%, y% 

190 PVAL#cz; pv% 

191 IF pv%(5) «> O: EXIT rzl 

192 IF pv%(6) = esc% THEN 

193 py% = sizy%: px% = sizx% 

194 EXIT rzl 

195 END IF 

196 REMark Pointer x/y—position 

197 px% = pv’(3): py% = pv%(4) 

198 REMark Test limits 

199 IF px% <« minx%: px% = minx% 

200 IF py% « miny%: py% = miny% 

201 IF px% >» xmx% — rzbt%: NEXT r2l 

202 IF py% > ymx% — rzbt%: NEXT r21 

203 IF px% «>» ox% OR py% «<>» oy% THEN 

204 REMark Blank and draw t, b, l&r 

205  BLOCK#ez; ox%, rzbt%, 0,0, rzbe% 

206 BLOCK#cz; px%, rzbt%, 0,0, rzbc% 

207 BLOCK#ez; ox% — rzbt%, rzbt%, 
rzbt%, oy%, rzbc% 

208 BLOCK#cz; px% — rzbt%, rzbt%, 
rabt%, py%, rzbc% 

209 BLOCK#ez;rzbt%, oy%,0,rzbt%, rzbc% 

210 BLOCK#ez;rzbt%,py%,0,rzbt%, rzbce% 

211 BLOCK#c2; rzbt%, oy% + rzbt%, 
ox%, O, rabc% 

212 + BLOCK#c2; rz2bt%, py% + r2bt%, 
px%, 0, rzbce% 

213 ox% = px%: oy% = py% 

214 END IF 

215 END REPeat ral 

216 : 

217 CLOSE#ez 

218 REMark Set new size 

219 sizx% = px%: sizy% = py% 

220 SetWin 

221 IF cx%=sizx% and cy%=sizy% THEN 

222 REMark Restore pointer 

223 RDPT#ew; irt%, cx%, -cy% 


224 ELSE 

225 RDPT#ew; irt%, (sizx%), —(sizy%) 
226 END IF 

227 END DEFine ReszWinBRC 

228 : 


The final routine here, is also the most complex. It 
is arrived at either by clicking one of the resize 
AWs or by pressing the CF3 key anywhere in the 
window. First the current pointer position is saved 
in case the routine was reached by keystroke. 
Then the old program window has to be thrown 
away and a new window opened, wherein the re- 
size outline, or box, will be drawn. The size of this 
window need not take up the whole screen, only 
that part that encompasses the maximum extent 
that any new window can be redrawn, starting at 
the old window's origin. A box outline of the old 
window is drawn for starters (lines 1714) and the 
pointer sprite is set to be the corner sprite. The 
loop (188+) reads the pointer returning on a 
keystroke, key down or pointer moved event. 
(mvec% = keystroke + key down + pointer 
moved). Sadly Wman does not recognise the 
key up event when initially reading a new channel 
(it always assumes that key up is the initial state). 
This means you can't just let go of the mouse 
button to simulate a “drop” as in drag and drop; 
you have to click a second time to terminate the 
resize operation. This may be a bug, and may 
therefore one day get fixed. Line 191 says that if 
the user clicks a second time (the click that got 
us here was processed elsewhere), to terminate 
resize with the current size. 192 says that if ESC 
is pressed resize is aborted and the size reverts 
to the starting size. If none of these events 
occurred, the size is read (197+) and tested 
against the limits to see whether it is legal. If the 
size passes all the tests and is different from the 
old size { 203), the old outline is blanked 
(un-XORed out) and a new box is drawn at the 
new size. This continues until the user is satisfied 
and terminates (or aborts) the operation. Finally, 
the drawing window is discarded and a new 
program window drawn with the new size. The 
pointer is placed at its old position, provided it stil 
fits inside the window, otherwise it is placed at 
the BRC. 


It is not difficult, but it is extremely fiddly to 
achieve the effect you want, as the tiniest 
tweaks can alter the behaviour of the interface. 
Im looking forward to seeing more PE programs 
that use interactive resize! 


As you may know from recent issues of the magazine, | have a 
Wiki at 

http://qdosmsq.dunbar-it.co.uk 

where | am attempting to put as much documentation on the inner workings of QDOSMSQ as | can. 
This work is based on a long gone web site named QDOS Internals which is no longer around as the 
ISP shut it down when | moved house about 18 months ago. 

You may not know that the Wiki is open to all and sundry to add, edit or update the content. So if you 
see something that | have written and you disagree, you don't have to tell me to fix it, you can fix it 
for me! (How lazy is that then?) 

George Gwilt, my faithful reader, has already added a huge amount of content to the Wiki and I'm very 
grateful. My work at the moment is preventing me from doing as much as | would like I'm afraid. 
However, this shows the benefits of using a Wiki format, while I'm unable to update it, other people 
can. 

The end result of my ambitions is to have, online, a complete and up to date set of documentation for 
the operating system we know and love so well. 

One of George's concerns when he started adding content was having to write HTML. Well, the good 
news is, you don't need to know HTML as all editing is done in plain text. You can use HTML but you 
don't have to. 

George was also a bit concerned about things being in the right place. To resolve this, I'm using what 
the Wiki calls "namespaces" but you can think of these as nothing more complicated than directories 
on a disc. That's basically all that they are anyway. 

| shall now attempt to document how the Wiki is structured and how you can use the editor to create 
content - should you wish to of course! 


The Wiki Structure 

My Wiki is highly structured and uses namespaces effectively - well, | think so! The top level has two 
namespaces - Linux and QDOSMSQ. We shall ignore the Linux Namespace for the rest of this article 
as it is not relevant to QDOSMSQ much - well, other than my documented attempts to get a Linux 
filesystem written that will read my QL floppy discs! 

On the left of each page is an index of namespaces. Usually, the namespace you are ‘in’ is shown 
opened out. This index isn't usually of much benefit as, in theory at least, | should have set up links to 
each topic. In the event that | have missed one or two, maybe three, the index can be used to see all 
the topics and sub-namespaces. My advice is always click on the ‘start’ topic for the namepsace. 
Rather than me wittering on about what is where, the following is a diagram of the structure of the 


QDOSMSQ namespace: 
Note: Namespaces are displayed above in bold blue text with an 


Sw pesnSs arrow head pointing at them, while topics are shown in green 
> errors text with a square blob indicator beside them. So ‘vectors’ 
b fs above is a namespace and start’ is a topic. 

& jobs 

b Stier The topic named ’start’ within any namespace is special. “Start” 
» pe is a reserved name and should be the one displayed when 
 CRIALOMal anyone clicks on the index of namespaces that is always 
oegeuars displayed on the left side of the page. Unfortunately, it doesn't 

appear that this is the case. 

* traps 

» vectors However, when someone clicks on a link in any Wiki page that 
m start points at a namespace and not at a topic (within a namespace) 


then the “start” topic will be displayed. So, if you click on a link 
that points to “"qdosmsq-traps-trap_2° for example, it actually takes you to ‘adosmsatraps:trap_2:start’ 
instead. (The colon is used as a namespace separator by the way) 


NOTE: Internet Explorer users have a problem. Because it cannot correctly process the CSS absolute 
positioning command, even in the most recent version, the index of namespaces appears all the way 
down at the bottom of the page, underneath the page's content. It should be alongside the page 
content. Opera and Firefox have no problems because they are standards compliant browsers. IE is 
not standards compliant yet. 


So the first rule of creating a new namespace is this, always have a ‘start’ topic within the namespace. 
Use this page to display an introduction, perhaps, or simply a contents page with links to the real 
content in your namespace. 


Note: The PE namespace has been added to by George and the content isn't quite up to standard yet, 
it needs to have a ‘start’ topic that acts as an introduction and contents list for all the other topics. | 
have advised George that | shall, at some point, add in a “start”. For reference, the PE namespace looks 
like the following: 


ae ea LL You can see that everything is stored within the PE namespace 
* errors itself However, on the “start” topic for the QDOSMSQ namespace, 
+ fs | have links pointing to the PE Traps and the WMAN vectors - 
» jobs what to do? 
& memory 
es As | informed George, | can fairly easily move topics about and 


most importantly, update all links to the current location so that 
they point to the new one. Very useful (I use it at work all the time 
ice because my colleagues seem to have a problem with name- 
rn spaces!). At the moment, the Wiki plugin that allows me to do this 


a fsize is not installed on my host, so I'm unable to move things about 

® idraw just yet. 

B incess 

= a By the time you read this, | may well have added a start topic to 

Se ataciy the PE namespace and also a PEVECTORS and a PETRAPS 
er namespace (both with ‘start’ topics), so if you go looking and find 

an that there is one there, don't panic. 

® pansc 

BARINS Creating New Namespaces 

Shes As mentioned above, a namespace is effectively a directory. It 

= rptr can contain other namespaces (sub-directories) and topics or, 

m setup nothing at all There are a number of ways to create a new 

& Smenu namespace: 

@ stiob : 

getiee From a link on another page. 


From a link on the parent namespaces ‘start’ topic. 
Directly from the URL entry area on your browser. 


= SY The two “from a link’ are similar and it is just a matter of editing 
m traps the page in question and adding a link to the new namespace 
a vectors you require. We will deal with creating links later on, but for now, 
eeeane this is all you have to do: 
» sbinternal [[qadosmsq:pe:traps|some meaningful text]] 
 sysvars 


The double square brackets enclose what will become a link on 

the page being edited. The |’ separates the Wiki topic from the 
meaningful text. So in the above, the Wiki topic being linked to is either the namespace 
qdosmsq;:pe-traps or to the topic qdosmsqpe:traps:start depending on whether it exists or not. 


Once the page has been saved, the link will appear but will be coloured to indicate a topic (or 
namespace) that doesn't exist. When you click the link, you get a default page that says something 
like “this page does not yet exist but you can create it’. Simply click on "create this page’ to do so. 
How easy was that? 

Don't forget, when you create a new namespace ALWAYS create a ‘start’ page within that namespace 
to use as a table of contents. 

Creating a namespace or topic directly from a URL in the browser is equally as simple. In the browser, 
type in 

http://qdosmsq.dunbar-it.co.uk/doku.php?id=qdosmsq;:pe:traps:start 

and press enter You will be taken to either the topic you entered or to the default page as above. 
From there the process is the same. 

Creating a topic or namespace in this manner does have one drawback. You don't get any links 
created that take you to your new page. For this reason, | always advise that you add a link (preferably 
to the parent's ‘start’ topic) that points to your new page and then click that to be taken to the default 
page. 

Of course, | can create namespaces on the actual host server simply by finding the structure on disc 
and adding a new directory, setting the permissions and so on. But that is not recommended! 


A Practical Exercise 

Ok, lets do it for real. We shall create a new namespace for you to play in. First of all, only registered 
people can edit pages. So, if you have not yet registered, please do so (if you want to actually 
contribute that is) and login. 

To register, go to 

http://qdosmsq.dunbar-it.co.uk 

and scroll down to the section named ‘Registration’ and follow the instructions there. It's easy. 


Registering should also log you in, if it doesn't, click on the login link and enter your details again. 
Once logged in you should see ‘Edit’ buttons or links on some of the pages. 

On the left of the page, click “playground” in the namespaces index. It will open up, and display a topic 
called ‘start’ - | have created this topic as a jump-off to your playing around stuff. If anyone else has 
been in and followed these instructions, there may be other namespaces or topics lying around. 
Please do not alter other people's stuff - create your own. 


Click on the ‘start’ topic to begin. The “Start” page is displayed on the right of the screen. Under the 
page contents, you should see three buttons, click on ‘Edit this page’. A new page opens and 
displays an HTML editor Beneath the editor are another three buttons, Save, Preview and Cancel. 


Within the editor the current source code for the page is displayed. Scroll down to the bottom and 
type in, on a new line and without any leading spaces, the following text (ok, replace "yourname’ with 
your name or something unique). 


[ [playground : YOURNAME: start | YOURNAME's playground] ] 


That is all there is to it. The above will create a new namespace under the PLAYGROUND namespace 
and create a ‘start’ topic within that namespace. In my case, | entered the following: 


[[playground:norman: start |Norman's playground] ] 


Click on the Preview" button. If you have the first text on the page, all is well. If there are other users 
already here, you might find that your text is appended to the end of the line and not shown on a new 
line. Let's fix that straight away! 

Add \\ (two backslashes) to the end of the line ABOVE yours, and to save the next person coming 
along, add them to the end of your line as well, as follows: 


[[playground:norman: start |Norman's playground]] \\ 


The pair of backslashes tell the Wiki software to force a new line at this point, much like the «<BR> tag in 
HTML does. 

lt makes no difference if you have spaces before the slashes or not, but, the backslashes MUST be 
the last thing on the line. Click "Preview’ again and all should be well. Your link to your playground is 
now on a line of it’s own. 

If all looks correct, enter some descriptive text in the "Edit summary” box beneath the buttons - | 
entered "Added Norman's playground’ (without quotes), tick the "Minor Changes” box - as adding a link 
isn't really a major change, and click on the “Save” button. Job done. 


When the page is redisplayed, you should see your new link at the bottom of the list in red text, and all 
the others - if any - showing in green. Green means a topic or namespace has been created while red 
shows that it has not. Click on your red link text. 

The default page is shown next. It advises you that the topic is not yet created and offers you the 
option to create it. Click on the "Create This Page’ button to do so, and read on. 


Creating & Editing Topics 

The same editor is shown. You can start typing stuff as you like. I'm not going to give you a load of 
tutorial stuff to enter, so feel free to mess about. You can create sub-namespaces beneath your own if 
you like but please remember to always quote the full path when creating links. If | wish to create a 
new namespace beneath my current one called "Help pages” for example, | would do the following: 


[ (playground: norman: helppages: start |Help Pages]] \\ 


Now, | have to say that there is nothing more irritating than a web page with a pile of links on it and 
nothing at all of a description. So, my page above is not helpful at all. 


To this end, | request that you always create a page with at least a major heading. To conform with my 
standard, | need to edit my page above and add a heading. 


Click with the cursor at the top of the page - before any other text - and click on the "Hi" button at the 
top. This action creates the following text: 


When | created the link to this page above, | called it "Norman's Playground’ in my link text. So, start 
typing and the "Level 1 Headline’ will be replaced with your typing. | prefer to name my pages after the 
link text. My complete page looks like this now: 


===s=2=z= Norman's Playground ss=srs 
[ (playground: norman: helppages:start|Help Pages]] \\ 


Click the Preview" button often to see how things look and you will catch errors before they get too 
big. 


Note: Each page should have an Hi at the top. All other headings should make use of H2 through H5 
as appropriate. All headings from Hi to H3 will appear on the page's table of contents which is 
displayed at the top right - if there are at least 3 headings on the page. 


My page looks fine, so | click on "Save" after entering some description of the page. The default text is 
fine at the moment - “created”. 


As each new namespace and ‘start’ topic is created, it will be added to the overall namespace index 
on the left of the page - or for IE users, way down at the bottom! 


** We have moved ** 


See our updated address detalts below. 


We have also acquired more brand new Sinclair QL membranes and another stock of 
Epson Stylus Colour 850 inkjet printers, so if you need a better printer for your QL, 
give us a shout. 


More news is always available on our website: www.rwapsoftware.co.uk 

We are also looking to produce some new hard disk interfaces for the ZX Spectrum 
and have a few little projects on the drawing board. 

Our websites: 

http://www.rwapservices.co.uk (General site) 

http: //www.rwapsoftware.co.uk (Sinclair computer second hand and new items) 


http: //www.rwapadventures.com (Adventure Programs} 
http: //www.internetbusinessangels.com (Guidance on setting up online businesses). 


New Products! 


if 0 NOW Wii! DIGTIAL 
Sd SOUND ON @QPC2! 


The wait is now over! Q-Word version 1 is finally available! 


Platforms: 
QPC/QXL, Q40/Q60, Aurora (with SGC) 


Prices: 
All versions without P-Word £20.00 
All versions with P-Word £30.00 


Notes: 

Q-Word DOES NOT require SMSQ/E with GD2 support -OR- SMSQ/E at alt on 
the Aurora or Qx0 machines. It works on the highest colour depth everywhere 
regardless of Operating System. 

The Aurora version is available on either HD or ED disk. For the latter add 
£1.00 to the price. ED version is uncompressed and can be run directly from 
the floppy. All other Floppy versions are compressed. QPC/QXL version 
comes on CD, Non CD versions DO NOW support digital sound on QPC2 


for Windows 


For QLers that run Windows or with incompatible hardware for 
Talent Games, we now have re-released these adventures so that 
they can run on your Windows-equipped PC. No Emulator, 
floppies, microdrive backups etc. required, just a one-click install! 
Of course the full QL line is still available! (See side column) 


Talent Games for Windows ea. £ 10.00 
(Each Game incfudes a runtime installation of QLAY-2 by Jimmy Montesinos) 


Games Currently Available from www.rwapadventures.com 


The Lost Kingdom of Zkul 
West 

The Prawn 

Return to Eden 


Replacement Sinclair QL Keyboard Membranes 


We always have a stock of brand new Keyboard Membranes (and keyboard parts) 
for the original Sinclair QL, so if you have some keys which no longer work, just 
give us a call. 


Cost is only £18.50 plus £2.75 post and packing. 


Second Hand Items - Huge Range Availabie 


We stock 3 wide range of books, hardware and software for the Sinclair QL, Z88 and 
ZX Spectrum, including disk interfaces, memory expansion and microdrive cartridges. 
If there is anything you need - have a look at www.rwapsoftware.co.uk (or ring us 
with details of your requirements). 


We are always happy to help. 


RIVAP Services 


3 Dale View Court, Fulford, Stoke-On-Trent, Staffordshire ST11 SBA TEL: (+44) 1782 398143 
Website: http://www.rwapsoftware.co.uk 
Email: sales@rwapsoftware.co.uk 


WPayPalk 


(MER IFIEO: 


Old Favourites! 


Utilities 


SBASIC / SuperBASIC Reference Manual on CD £20.00 
Sidewriter v1.08 £10.00 
Landscape Printing (EPSON printers) 
imageD v1.03 £10.00 
3D object generator 
Q-Help v1.06 £10.00 
Superbasic On-Screen help system 
Q-Index v1.05 £ 5.00 
Keyword-to-topic tinder 
ProForma ESC/P2 Drivers v1.04 for ProWeSs £ 8.00 
Printer Driver 
Applications 
Flashback SE v2.03 (upgrade only) £ 5.00 
Database 
GL Cash Trader v3.7 £ 5.00 
Accounting/Finance 
QL Payroll v3.5 £ §.00 
Accounting/Finance 
QL Genealogist v3.26 £20.00 
Genealogy 
Genealogy for Windows £ 50.00 
QL Genealogist to Windows version upgrade £ 25.00 
QL Cosmos v2.04 £ 5.00 
Planetarium 
Q-Route v2.00 £25.00 
Route Finding 
Upgrade from v1.xx £ 5,00 
Britain map v1.11 £ 2,00 
BIG Britain map (needs 2Mb) v2.03 £ §.00 
Various Britain Area maps (ask for details) ea, £ 2.00 
ireland map v1.00 £ 5,00 
Beigium map v1.01 £ 2.00 
Catalonia map v1.03 £ 2.00 
P-Word UK English Dictionary (500.000 words!) £15.00 
Dictionary 
Leisure 
Return to Eden v3.08 £10.00 
Adventure 
Nemesis Mkli v2.03 £ 8.00 
Adventure 
The Prawn v2.01 £ 8.00 
Adventure 
Horrorday v3.1 £ 8.00 
Adventure 
West v2.00 £ 5.00 
Adventure 
The Lost Kingdom of Zkul v2.01 £ 5.00 
Adventure 
All 6 games above £ 25.00 
D-Day Mkil v3.04 £10.00 
Strategy/War Simulation 
Grey Wolf v1.08 £ 8.00 
Graphical Submarine Simulation 
War in the East MkIl v1.24 (upgrade only) £ §.00 
Strategy/War Simulation 
Open Golf v5.20 £ 8.00 
Sports Simulation 
QuizMaster || v2.07 £ 5.00 
Quiz 
Stone Raider Il v2.00 £ 5.00 
Arcade Game 
Hoverzone v1.2 £ 5.00 
Arcade Game 
Deathstrike v1.5 £ 5.00 
Arcade Game 
Flightdeck v1.0 £10.00 
Flight Simulation 
All 6 games above (Open Golf, QuizMaster li, Stone 
Raider Il, Hoverzone, Deathstrike and Flightdeck) £28.00 


Notes on Software requirements 
The following programs have a minimum SGC card requirement: P-Ward, 
Qward, Big Britain MAP for Q-Route 


From the UK Dial: 01782 398143 


{Cheques in £ sterling made payable to R. Mellor) 


When You Mess Up! 

If you do make a pig's ear of it all and mess up a page completely, click ‘Cancel’ to abort all editing 
back to the last “Save”. If you wish to abort all editing after you have clicked the "Save" button, then 
you simply click on the ‘Page Revisions” button when the page itself is being displayed. The “Old 
Revisions’ page is shown. 

On this page is a list of all the previous versions of the page in question. One of which will be marked 
as the current page. This is the one you wish to get rid of 

To simply revert back to the previous version, click the green link text (playground:norman:start) 
beneath the one marked as current to display it, click "Edit this page” and then immediately click "Save’ 
to save it. This will now become the current version and all is well again. 

While the Old Revisions page is displayed, you may notice an icon next to all non-current versions of 
the page. The icon looks a lot like Elton John's spare pair of 3D glasses. If you click on one of these 
icons, the differences between the current page and the version you clicked will be displayed. 


Editing Text 

You should note that the layout of the page displayed when you Preview or Save it is not going to 
match up to what you typed originally. We have seen this already with the list on the PLAYGROUND 
page when we typed text on a new line and it was displayed on the same one as the previous line's 
text. 

This is caused by HTML. When a page is rendered in HTML it gets rid of multiple spaces, linefeeds and 
such like. This allows for the browser window to be changed in width and/or height and the text on 
the page will ‘reflow’ to suit. 

Also, what you type in the Wiki editor is not HTML but text. Your text is saved on disc in exactly the 
format you typed in as and when a user displays the page in their browser, the Wiki code (written in 
PHP) reads the text and converts it to HTML on the fly. 

HTML is quite feature rich in formatting and so on, so you should be able to enter text that will be 
rendered in bold, for example, and indeed you can. The following is a list of things you can do in each 
page to jazz it up a little! 


Bold text is surrounded in a double asterisk **like this**. 
Italic is encased in slashes /like this// 
You can do both together /**like this**// 


You can select existing text and press the “B’ or I buttons (or both) when in the editor as well. 


Underlined text is surrounded by pairs of underscores or by selecting it and clicking the "U" button. 
aaLike this__. 


There is a way to get something called Code Text into a line. This is used when explaining what 
commands you should type, for example, on a command line. The code text is surrounded by pairs of 
single quotes ‘like this”. If you want to show a code listing instead, see below. 


Headings are defined by a number of equals signs surrounding the text. These are best added by 
clicking on the buttons at the top, marked Hi through H5. 

Headings Hi and H2 will be displayed with a horizontal line beneath the heading. 

Headings Hi, H2 and H3 will be shown in a table of contents on the page. This is displayed on the top 
at the right side. This is not displayed if there are less than three headings (Hi through H3) on the 


page. 


An unordered list is easily created. Each list item should be placed on a separate lineand be prefixed 
by two spaces and one asterisk: 


* Item one. 
* Item two. 


You can nest lists as follows by adding another two spaces: 


* Item one. 
* Item One A. 
* Item One B. 
* Item two. 


Each item on the rendered page will have a blob of some description (like a bullet point) as a prefix. 
Should you require a numbered (ordered) list, use a hyphen instead of the asterisk: 


- Item one. 
- Item two. 


You can nest lists as follows by adding another two spaces: 
~ Item one. 
- Item One A. 
- Item One B. 
- Item two. 


In this case, the outermost level will be numbered 1, 2, 3 .. while the nested lists will be in Roman 
Numerals. Deeper nesting levels will use different numbering. 


Tables 


To create a table use the text you want in each cell with a leading and trailing ‘I as follows: 
| Cell one | Cell Two | Cell Three | 


You can justify text in cells by adding two or more spaces after the leading 'f or before the trailing ' 
as follows: 


| Cell one, justified right by extra spaces on the left | Centre justified cell two | 
Cell three, justified left by extra trailing spaces 


The spaces are put on the side of the text that you want the padding spaces to be added. Spaces on 
the left of the text will cause padding on the left to justify the text to the right. Spaces on both sides 
will centre the text in the cell. 

Tables can be given headings as follows: 


*“ Heading one ~ Heading Two ~ Heading Three ~ 
| Cell one | Cell Two | Cell Three | 


Or, with justifications: 


* Heading one ~ Heading Two ~ Heading Three 
| Left | Centre | Right | 


Cells can span more than one cell space’ as follows: 


~ Heading one ~ Heading Two ~ Heading Three 
| Left || Right | 


There isn't a space between the two | characters by the way, if there was, then an empty cell would 
be drawn in the row. 


Unfortunately, rows cannot be spanned in this manner. 


Tables can have top and side headers if desired : 


~ Left Heading one Centre Right 
* Left Heading two Centre Right 


* Top heading one ~ Top mere | Two ~ | heading Three ~ 
“Left Heading three | Centre | Right | 


Program Code 
Program code is important. It would be nice to see an example of each and every vector and trap 
where possible. To insert program code is easy and can be done in two ways: 


Leave two blanks before the text on each line. 
Wrap it in <code> and </code> tags. 


The first option is not advised as it isn't implicit enough when someone else is reading and/or editing 
your text. Always wrap code in the code tags, as follows: 


<code> 

start moveq #0,d0 
end rts 

«</code> 


When typing or pasting code sections into the page, DO NOT USE THE TAB KEY TO INDENT Use 
Spaces. If you use TABs then the code looks fine in the editor but is formatted incorrectly when the 
page is rendered as the TAB is removed by the HTML processing code in the browser. 


Summarising the rules 
So, in summary then: 


e Always use namespaces where these make sense. 

e Always use a start page for each namespace. Use it as a contents page and/or introduction. 

e When adding a new topic to a namespace, create a link to it on the start page. 

e Always fill in the change details to say why you made a change - it helps on the Old Revisions 
page. 

e Don't use the TAB character in code sections. 

e Always play in the play ground until you know what you are doing. 


e And finally, for now anyway, when you are editing a page, right at the very top is a paragraph of 
text as follows: 


‘Edit the page and hit Save. See syntax for Wiki syntax. Please edit the page only if you can 
improve it. If you want to test some things, learn to make your first steps on the playground.” 


The word "syntax" is a link to the Wiki software's own page on editing syntax and the word 
‘playground’ is a link to the main playground page. The “syntax” page should be printed off and 
used as a Crib list. 


The deadline for 
the next issue 
is the 15th of 


Steve Poole writes (re. Music article): 

How time passes quickly when you have a lot to 
do. At the ‘QL is 25° meeting at Coventry, | 
managed to get a couple of short conversations 
with Simon Goodwin, but barely enough to share 
the mass of information | wished to discuss. But 
these meetings are a very useful starting point. 

Simon had written an excellent article and pro- 
gram in QL Today in reply to my request in ‘Binary 
Gamuts’ for more information on music theory. 
His piece neatly dealt with the mathematical pro- 
blem of how to construct music scales which are 
harmonically exact, even though his program can 
only play on Amigas, the QL sound generator 
being inadequate. Perhaps we will see manufac- 
turers producing pentatonic keyboards soon, as 
the whole sphere of music composition will be- 
come wide open for an entirely regenerated field 
of development in terms of potential key combi- 
nations and refreshingly pure harmonics. In the 
meantime, Amiga owners can experiment on his 


[ND] for Norman Dunbar 


[GG] | have only four short comments this time 
on the latest article {part 23) on Assembler 
Programming by Norman Dunbar. 


[ND] Only four! I'm getting better! 


[GG] The first is that, once again, Norman has 
taught me something. This time it is the possibi- 
lity of having a zero pointer to a loose item (top 
of page 37). | must confess that it seems strange 
to do this. You could have a whole range of loose 
items all blank. This would be very confusing. You 
could of course eliminate this confusion to some 
extent by having a small explanatory window 
appearing after the pointer has rested on a loose 
item for a certain number of ticks. Perhaps Nor- 
man will tell us in a later article how this can be 
done. 


Editor's comment: [GG] stands for George Gwilt, 


‘Mouse Organ’. No doubt the Monty Python team 
would be flattered! 

For my part, | have sent the latest version of the 
SuperBasic music playing ‘QL Tunes’ to Jochen 
who has promised to put it on his web-site for 
readers to down-load. It now reproduces tempos 
accurately and will allow you to type in melodies 
from music scores which the QL can then play. 
The previous version was published in QL Today 
with a description of how to use it, and was, to 
my knowledge the only QL music program 
printed with its listing. 

So for QL programmers who get stuck on some 
project, remember; do not be afraid to write 
about it in the magazine. You never know, some- 
one may well just be waiting with a solution... 
Bravo again Simon. | am sure a lot of musicians 
will make exciting use of this implementation. It 
could radically change the way we are used to 
hearing sound! 


[ND] \'m sure | read that information in the 
documentation, but of course, | don't have it to 
hand at the moment. | have no idea why you 
would ever want to have a loose item with 
nothing in it, but maybe you can start a program 
up like this and later on, add an object depending 
one some choice the user has made perhaps. | 
honestly don't know - yet! If Norman is going to 
tell you how to pop up a hint window, he's going 
to have to learn for himself first! 


[GG] The second comment relates to the defini- 
tion of an object for an information window (see 
infoOOBJs on page 35). If the object is text, the 
word at position 10 gives the colour of the ink to 
be used to display the text. If the object is a blob 
(type 4) the word is used as a word relative poin- 
ter to the pattern to be used with the blob. If the 
object is a pattern (type 6) the word points to the 
blob to be used with the pattern. If the object is a 
sprite, the word is not used. In all cases the word 


at position 14 points to the object itself whether 
it is text, sprite, blob or pattern. Thus, for a sprite, 
its pointer is at position 14, not 10 as Norman 
Says. 


[ND] | have corrected my article accordingly. 
Thanks. 


[GG] The third comment is about the keypress 
to activate a loose item (see the bottom of page 
36). First of all, any keypress including such 
things as TAB and the arrow keys can be used. 
The selection is not confined to letters and those 
keypresses which are defined as “events”. How- 
ever, lower case letters are not allowed. 


[ND] At the bottom of page 36 | mention that "for 
a letter, the upper case letter For an event it is 
the event number minus 14°. That should read 
“event name minus 14° or even better "the event 
number from the table below’. 


[GG] The last comment deals with ‘events’. 
There are seven events each with its own key- 
press as detailed by Norman in the table on page 
37. The official documentation refers to ‘event 
number" and “event code’. The event number is 
the number of the bit set in the event vector 
which is at position $14 in the window status 
area. For the seven events listed by Norman the 


As | use QPC every day for all sorts of things, 
including my Shareware services, | need to be 
able to process data from the Windows clip- 
board. 

By doing so, | can cut & paste addresses and 
other necessary information out of emails. | mark 
the required area in the email, CTRC C it and 
process it in QPC ... which is easy. | deal with 
cases like 3, 4 or 5 lines, or double-spaced lines 
or address formats various people all over the 
world use. The processing routine has grown 
over the years and is quite complex, and not 
really suitable to be published here. 

However, | often find that | want to cut a single 
line only and paste it into some input form, pro- 
gram, or whatever in QPC. 

So | thought a little hotkey which does what 
CTRL V does in Windows would be very useful. | 
did not spend much time thinking about it, and 
here is what | produced. Maybe it is useful to you 
too: 


corresponding bits to be set are 16 to 22. The 
event code is the event number less 14. If a 
loose item is to be activated by a keypress 
producing an event the selection keystroke must 
be the event code as Norman says. | think the 
headings of the table listing the events have got 
transposed somehow. It might be clearer if they 
were, from left to right, Event, Event Number, Event 
Code and Description. 


[ND] | have looked at my article's source code 
and as far as the last comment by George is 
concerned, | already have the table in the order 
George requests. However, the further explana- 
tion about the event number being the bit num- 
ber is good and | have added that into my source 
files for future use. 


Unfortunately, the table headings have been 
printed incorrectly in the magazine and this is 
where the problem could be. The 4 headings 
should be Event Name, Event Number, Event Code 
and Description. The second row of headings 
has been shifted right by one column. 


As ever, my thanks to George for keeping me 
honest, teaching me stuff | had either forgotten or 
never knew and for continuing to read my 
articles. (And also, many thanks for continuing to 
update the http://adosmsq.dunbar-it.co.uk web site} 


Pee 
“1 


10 s$=SCRAP_GET$:REMark get line 
20 x=HOT_REMV("&é"):REMark remove hotkey 
30 ERT HOT_KEY("é",s$):REMark redefine 
40 HOT_DO "&":REMark paste it!! 


.. and save it as, Say winl_exec_pasteit_bas 
You can use any character, | just used one which | 
do not use for other purposes. 


Then define a Hotkey in your BOOT program, e.g. 
100 ERT HOT_THING1("v","SBASIC"; "EX pasteit") 


Now, you should be able to mark a word or line 
of text in a Windows program, cut or copy it with 
CTRL X or CTRL C, switch into QPC and use 
ALT V to paste into any line input (e.g. the BASIC 
INPUT Of READ_STRING$ of QMENU). It even gets 
Stuffed into QD. 

Maybe not a very elegant way of doing it - can 
you come up with a more elegant one? 


aiser-Wilh.-Str. D-47169 Duisburg 
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DEFINITELY 
OFFERS ON 


SMSQ.J-M-S.COM 


APOLOGIES FOR NOT HAVING 
ANYTHING UP IN MAY! 


[|] 1 hereby subscribe to QL Teday for 4 issues of Volume 14. The total price for all four issues is as follows, 
including postage and packing (depending on destination) 


Destination rice for Volume 14 
Germany, Netherlands & United Kingdom EUR 29.90 
Rest of Europe EUR 31.90 
Rest of World (airmail) EUR 42.90 
[_] Please charge my credit card: [] VISA [_] MasterCard [_] Diners Club 
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Card Verification Code: [TE 


[] Money transfer to one of the following accounts: 
[_] Deutschland: Jochen Merz, Account 493 50 431, Postbank Essen, BLZ 360 100 43 
[_] Osterreich: Jochen Merz, Account 85055317, PSK Wien, BLZ 60000 
|] Switzerland: Jochen Merz, Account 60-690080-4, PostFinance, Clearing-Nr. 09000 
[| The Netherlands: Jochen Merz, Gironummer 3258439, Postbank NL Amsterdam 
[_] and from all other countries in EUR with IBAN and BIC to account 
Jochen Merz, Deutsche Postbank AG, IBAN: DE21 3601 0043 0611 1004 37 / BIC: PBNKDEFF 360 
[_] UK customers can pay £26.60 (valid until July 2009) to 
Jochen Merz, Account 83795395, Citibank UK, Sort code 30-00-45 
or send cheques in £ - no fee for UK sterling cheques (payable to Jochen Merz only)! 


[_] Payment via Paypal: Log into your paypal account and send the money (in EUR) to paypal@J-M-S.com 


Name: 
Street: 
TOWO: <2. 2 Se ei ee ee 
Oe ees fs ree ah ede Lege a ne Meee fe ol 
Country: 
EMail: 


Date, Signature 


Please fill in and send to Jochen Merz Software, Kaiser-Wilh-Str. 302, 47169 Duisburg, Germany. 
or Fax to +49 203 501517 or scan & Email to sabesadaniuielat com 


16 Geran: -speaking readers with mtiionialie renewal only: 
An alle deutschsprachigen Leser mit Auto-Verlangerung & Abbuchung: 


Natiirlich findet die Verlangerung automatisch statt ... und natiirlich auch | 


| zum giinstigen Friih-Verlangerungs-Preis - wir wollen treue Leser natiirlich | 
_ nicht benachteiligen. Sie brauchen also nichts zu tun, alles geht | 
automatisch weiter - zum giinstigen Preis! 


